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PREFACE 


This manual describes the APL2 programming language. An intro- 
duction is given in the first two chapters. APL2 contains 
extensions to APL which include computation on complex 
numbers, computation on nested arrays, and computation on 
functions (with operators). | 


The Contents, Index, and certain Figures, are significant 
parts of this manual. The Contents gives the organization of 
the manual and the general structure of APL2 itself. The Index 
includes entries for each language entity by both name and pur- 
pose, as well as for language attributes, system commands and 
messages, and miscellaneous items. Notable figures are: 

1. Primitive Pervasive Functions (Figure 2 on page 29) 

2. Primitive Non-Pervasive Functions (Figure 3 on page 32) 

3. Primitive Operators (Figure 8 on page 155) 

4. System Functions (Figure 11 on page 181) 

5. System Variables (Figure 12 on page 203) 

6. System Labels (Figure 13 on page 227) 

7, The APL2 Character Set (Figure 17 on page 285) 

The first six figures are lists of various language items. 
Provided with each item is a page reference where the full 
description of that item can be found. 

Throughout this manual, examples of APL2 statements make fre- 


quent use of redundant blanks for emphasis. The pair of sym- 
bols +> is used to indicate "is equivalent to". 
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CHARACTERISTICS OF APL2 





The characteristics of APL2 can be summarized as follows: 


Ta 


There are only three kinds of objects. 


a. 
b. 


C. 


Variables are named arrays which contain data. 
Functions act on arrays. 


Operators act on functions. 


The syntax is simple. 


a. 


b. 


Operators have higher precedence than functions. 
There is no precedence hierarchy among operators., 
There is no precedence hierarchy among functions. 
Defined functions and operators (which may be called 


programs) are treated like primitive functions and 
operators. 


The semantic rules are few. 


a. 


b. 


C. 


The definitions of primitive functions are independent 
of the representations of the data to which they apply. 


All pervasive functions apply to arrays in the same 
way. 


Primitive functions and operators have no hidden side 
effects. 


The sequence control in a program is simple. 


a. 


b, 


One statement type embraces all types of branches 
(such as conditional, unconditional, and computed). 


The termination of the execution of any function or 
operator always returns control to the point of use. 


External communication is established by variables which 
are shared between APL2 programs and other systems, sub- 
systems, the APL2 environment, or auxiliary processors. 
These shared variables are treated both syntactically and 


semantically like other variables. 
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ERA ON 


-APL2 is implemented as an interactive computer language. This 


means that you and the computer take part in a dialog. Your 
part of the dialog is normally indented 6 spaces, and the com- 
puter's part of the dialog normally begins at the left margin. 
This is called immediate execution, or calculator mode. Com- 
puter processing or the display of output can be interrupted by 
a terminal attention. | 


Lines being entered on non-display terminals can be corrected 
before entry by backspacing to the point of error, entering an 
attention, and re-entering from that point. 


Programs of APL2 statements can be written and stored for sub- 
sequent automatic execution, 


WORKSPACES 


The common organizational unit of the APL2 system is the work- 
space. When in use, a workspace is said to be active, and it 
occupies a block of main storage. Part of each workspace is set 
aside to serve the internal workings of the system, and the 
remainder is used, as required, for storing programs and items 
of (transient and permanent) information. 


Inactive workspaces are stored in libraries, which occupy 
space in auxiliary storage. Copies of inactive workspaces can 
be made active, or selected information can be copied from them 
into an active workspace. 7 


ARRAYS 


The basic unit of information in APL2 is an array. An array is 
an ordered rectangular collection of data elements. The number 
of dimensions of an array is called its rank. The collection of 
the lengths of all the dimensions of an array is called its 


Shape. 


An array of rank 0 is called a scalar. 


An array of rank 1 is called a vector. 


An array of rank 2 is called a matrix. 
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An array of rank 2 or greater is called a multi-dimensional 
array. 


A dimension is also called an axis. Individual elements of an 
array are scalars. A scalar element may be a number, a charac- 
ter, or an enclosed array of arbitrary rank. The distinction 
between a number and a character is called type. An array which 
has only scalar numbers, or characters, or both as its elements 
is called a simple array. An array which has both scalar num- 
bers and characters as its elements is called a mixed array. 





An array which has at least one element which is not a number or 
a character is called a non-simple array or a nested array. A 
disclosed element of an array is called an item of the array. 
An enclosed item of an array is called an element of the array. 
An item is the array data within the structure of an element. 





An array which contains at least one 0 in its shape is called an 
empty array. An empty array has no elements, but it has type, 
and possibly nested structure. An empty array may be either 
Simple or non-simple. | 


NUMBERS 


All numbers are entered or displayed in decimal. They may be 
either in conventional form (including a decimal point if 
appropriate), or in scaled form. 

The scaled form consists of three consecutive parts: 


1. an integer or decimal fraction called the mantissa, or mul- 
tiplier | 


2. the letter E 


3. an integer called the scale (which must not include a deci- 
mal point) 


The scale specifies the power of 10 by which the mantissa is 
multiplied. 


Examples: 


12E0 
12 


12E3 
12000 
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12.34E3 
12340 


12.3456E3 
12345.6 


Negative numbers are represented by an overbar (`) immediately 
preceding the number. In scaled form, the multiplier and the 
scale may both be negative. 


Examples: 


~12E3 
~12000 


12E° 3 
0.012 
~12E73 
70.012 
The overbar (7) used to start a negative numeric constant is 


distinguished from the bar (-) which denotes the negation func- 
tion. | 


CHARACTERS 


Characters are entered within a pair of quotes. The surround- 
ing quotes are not displayed on output. 


Examples: 
1c? 
C 
ty 1 


* 


The quote character itself must be entered as a pair of quotes 
in a character constant. | 


Example: 
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NAMES 


APL2 objects (variables, functions, and operators) may be giv- 
en names. An object name may be any sequence of alphanumeric 
characters which starts with an alphabetic character. Alpha- 
betic and alphanumeric characters are listed in "The APL2 Char- 
acter Set" on page 285. A name may not contain a blank. 


SPECIFICATION OF VARIABLES 
An undefined name or the name of a variable may be assigned an 
array value by specification with the left arrow (¢). 
Examples: 
A «e 1 
B4 + 2 
AN INTEGER + 4 
A_ -NUMBER + “4 
COST + 5.98 
AX e 0.1 
PARTANUMBER + 606 
CHARACTER + !/!' 
There may be multiple specifications in the same expression: 
Xet+ Yet 


The result of a specification is the value being specified, so 
that Y is given the value 1, and X is given the value 2. 


VECTOR NOTATION 


The juxtaposition of two or more arrays in an expression 
results in a vector whose items are the arrays. This is called 
vector notation. 
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Example: 
A+¢2 4 8 
The shape of vector A is 3: 


i 
3 


Its elements are scalars, 
Its first element is 2: 


AC1] 
2 


Its second element is 4: 


A[2] 
4 


Its third element is 8: 


A[3] 
8 


Numbers and characters may be in the same vector. 
Example: 


A «2 'X' 8 


pÁ 
3 

ACi] 
2 

A[2] 
X 

AC3] 
8 


Unless a character item is adjacent to a numeric item or a name, 
either blanks or parentheses must separate the items in vector 
notation. | . 


12 +>: 12 
12 «> 1(2) 
12 +> (1)2 
12 «> (1)(2) 


2 tX! 8 «<> 2'X'8 
2 'xX* 8 «> 2('X)8 


Throughout this manual, the pair of symbols «> is used to indi- 
cate tis equivalent to", 


Fundamentals 7 








More than one Consecutive blank or set of parentheses is redun- 
dant, but permitted. 


12 e» 1 2 

12 ə 1 (2) 

12 +> (1) 2 

12 «> (1) (2) 
12 «+> 1 2 

12 «> 1((2)) 

12 es ((1))2 
12 «>  ((1))((2)) 


Characters in a vector consisting of only characters may be 
listed between a single set of quotes: 


"ABC?! ++ tat 1B! ter 
'ABC! +> tA! Br tor 


The quote character itself must be entered as a pair of quotes 
in a character vector constant. 


Example: 
A € DON'T! 
A 
DON'T 
pA 
5 
Blanks within quotes are significant. 
Example: 
A + 'DO NOT! 
A 
DO NOT 
pA 
6 
Character vectors may themselves be items in vector notation. 
Example: 
A + 2 'MORE' *t TIMES! 
The shape of vector Ais 3: 


pÁ 
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Its first element is 2: 


AC1] 
2 


The item contained in its second element is 'MORE': 


2AC2] 
MORE 


The item contained in its third element is 'TIMES'!: 


| >AC3] 
TIMES 


Parentheses may be used to delimit items in vector notation. 
Example: 


A e1 (2345) 


OA 
2 
AC1] 
1 
pA[2] 
>4[2] 
23 45 
pa2A[2] 
4 


If parentheses are used to separate items, then blanks are not 
required, but permitted. If parentheses are used to identify 
items, then computation may be done inside the parentheses. 
Example: 


A + 1 (2 3p16) 


pÁ 
2 

AC1)] 
1 

>24[2] 
12 3 
45 6 

p>A[2] 
2.3 


Vector notation may be nested. 
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Example: 





B + 10 (1 (2 3 4 5)) 


pB 
2 

B[1] 
10 

p>B[2] 
2 


In general, the following identities hold: 


AB +*> (cA),cB 
ABC +> (cA),(cB),ec 


These constructs of vector notation may be vector arguments of 
functions or operands of operators. 


Example: 


1 (2 3 4) + 10 
11 12 13 14 


COMPLEX ARITHMETI 


Complex arithmetic is achieved by considering all numbers to be 
elements of the complex number field, and defining all arithme- 
tic on complex numbers. 


A complex number constant may be represented in three uays: 

1. real and imaginary parts separated by the letter J l 

2. magnitude and angle in radians separated by the letter R 

3. magnitude and angle in degrees separated by the letter D 
Thus, the number expressed conventionally as 3+4i may be writ- 
ten as 34. The number i (the square root of ~1) may be written 


as either 071, 1D90, or 1R1.5707963267948965. 


The J form of representation is the default for un-formatted 
output of complex numbers. 


Either or both parts of a complex number constant may be speci- 
fied in scaled notation. For example, 1.2E3J”"4E”2 is the same 
as 12007°0.04, and 8£53D1E2 is the same as 8000D100. 
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SYSTEM FUZZ 


Some primitive functions and operators (like Greater) will 
treat a complex number as real if the greater of the absolute 
values of the imaginary part and the tangent of the angle is 
less than approximately 1£°13. 


Some primitive functions and operators (like Index) will treat 
a real number R as whole (non-fractional) if the the fractional 
part of the number is less than approximately 1£”13x1[|R. 


Some primitive functions and operators (like Not) will treat a 
complex number as logical (either 0 or 1) if the distance 
between it and 0 or 1 on the complex plane is less than approxi- 
mately 1£°13. | 


system fuzz is not related to comparison tolerance (OCT), and 
cannot be set. E 


DISPLAY OF ARRAYS 


Simple scalars and vectors are displayed in a single line. If 
an element in a simple vector is a number, then that number will 
be separated from adjacent elements by one blank. 


Example: 


O txt 123 'O' tat 45 6 tot 
O * 123 DA 45 60 i 


Simple matrices are displayed in rectangular planes. All the 
elements in a given column of the matrix are displayed in the 
same format. Different columns may have different formats and 
different widths. If a column in a simple matrix contains a 
number, then that column will be separated from adjacent col- 
umns by one blank. 


Example: 


2 5 p txt "gt tat 123 45 tot tvt 6 7 8 
xO A 123 45 | 
ov 6 7 8 


Simple multi-dimensional arrays are displayed in rectangular 
planes. Planes of a 3-dimensional array are displayed with an 
intervening blank line. Multi-dimensional hyperplanes of an 
array with more than three dimensions are each displayed with 
an intervening blank line. The cumulative effect is to sepa- 
rate the display of higher dimensions with an increasing number 
Of blank lines. | 
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Example: 


222301 


111 
111 


Ifa column in a simple multi-dimensional array contains a num- 
ber, then that column will be separated from adjacent columns 


in all planes by one blank. All the elements in corresponding 
columns of the planes are displayed in the same format. 


Example: 


2 3 4 p txexxQOO0AdAsAo0co! .123,'°'7V' ,4 5,'??*,56 7 


kk *k * 
OO 0 O 
AA A A 
oo œo 123 
vv 4 5 
?? 56 7 


Empty arrays of rank greater than 1 may display on 0 or several 
lines, depending on their shape. 


Leading zeros to the left of a decimal point, and trailing 
zeros to the right of a decimal point are suppressed in the dis- 
play of numbers. A single zero before a decimal point is not 
considered a leading zero. 


Example: 
| 00123000 00.0123000 
123000 0.0123 


The precision with which numbers are displayed is controlled by 
the the system variable Printing Precision (OPP). Its default 
value is 10 digits. 


Example: 


2.718 3.141592653589793 0.000000000001 
2.718 3.141592654 1£712 
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The precision with which numbers are stored internally is 
always the maximum that the implementation permits (at least 16 
digit..). All available precision will always be displayed if 
OPP is set to 18. | 


Simple matrices and multi-dimensional arrays containing num- 
bers that require decimal points, scaled form, or complex nota- 
tion are displayed with all elements in a column in the same 
format. Decimal points and complex number separators align in 
columns. The columns are formatted independently. 


Example: 


25 p 112.3 710 345 637 0.1 0.12 1823 12 34536 
1 12.3 “"1E1 345 637 
0.1 0.12 1£23 1J2 345J6 


Some simple arrays containing complex numbers may be displayed 
in a form not suitable for input. That is, the complex number 
separators (J, R, or D) in each column will be aligned at the 
cost of possibly separating paired real and imaginary parts. 
Example: | 


4 8 p O 1 273 4J5.6 7.879 


0 1 2 J3 4J5.6 
7.8J9 0 1 283 
4 J5.6 7.809 O 1 


2 J3 4 35.6 7.879 0 


The display notation for complex numbers (J, R, or D) is con- 
trolled by the the system variable Format Control (OFC). The 
default display of complex numbers in J notation is to ignore 
the real or imaginary part if it is less than the other by more 
than OPP orders of magnitude. | 


Example: 


2J3E45 3E4592 
0J3E45 3E45 


The display of complex numbers in R or D polar notation is to 
ignore the phase angle if its magnitude is less than 10*-DOPP. 


Example: 


1R1E~9 1R1E°11 1R°1E°11 
1R1E~9 1 1 


if OPP is 10 and OFC is set for R notation formatting. 
The displays of simple arrays are not indented. The displays 


of non-simple arrays (and non-simple items within an array) are 
indented one space, and they also include a trailing blank. 
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Example: 


3261 2 3,(c4 5 6),7,cc8 9 
1 2 
3 4556 
7 89 


For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma: 


Character scalars or vectors in a numeric column of an array 
will be displayed like numeric integer scalars with the same 
number of digits. 


Example: 


4 3p'ONE' 'TWO' *THREE* 1111 22 37845 6.6 7 8,9 '?! 
ONE TWO THREE 


1111 22 3 
TY 5. 6.6 
7 8.9 ? 


For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma: 


, ONE, TWO,,,THREE,,, 
es ak e A AS: POE 


eos. Ves 93939999 .6, 
TET ce AA A 


Character scalars or vectors in a numeric column of an array 
which is displayed in scaled form will be aligned with the mul- 
tiplier. 


Example: 


4 2p'SOME' *MORE* 1.2E13 3 *'DD' 6.678£20 7 '?! 
SOME MORE 
1.2E13 3.,000£0 
DO 6.678£20 
7 .OE0 ? 


For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma; 


, SOME MORE 
,,1.2813,3.000£0,, 


»»»00,,,,6.678E£20, 
ssl OEO aaas tasa 
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Character scalars or vectors in a column which contains no num- 
bers will be left adjusted. | 


Example: 


3 4o'ONE' 1111 22 3 'TWO! ~4 5 666 'THREE' 7 8.9 '?! 
ONE 1111 22 3 
TWO "4 5 666 
THREE 7 8.9 ? 


For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma: : 


,ONE,,,1111 r22179»9 
,TWO,5339» 4,,5,,,666, 
„THREE 45557 558-Is50? 


Other non-simple arrays are presented in a display which con- 
tains embedded blanks according to the ranks of the adjacent 
items. The number of embedded blanks is one less for character 
items than for other items. | 


Example: 


1 2 'MORE' (3 4) (2 2p14) 5 

1 2 MORE 3 4 1 2 5 | 

3 4 

For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma: 


= »2,MORE, ee ee y 1 O 

PI le gee Ge gig 5 Oo ee SOS 

For more details about array display, refer to the discussion 
of the primitive monadic Format function on page 70, and the 
Printing Width system variable on page 219. The structure of a 
nested array may be studied in detail by using the DISPLAY 
workspace described in "Appendix E. Supplied Workspaces" on 
page 325. | 


EXPRESSIONS 


An expression is a sequence of one or more syntactic tokens, 
which may be symbols or names representing arrays (constants or 
variables), functions, or operators. An expression usually 
indicates one or more operations to be performed. 


If an expression produces an array, then it is called an array 
ssion. An array expression is either: 


1. a constant 
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2. avariable 


3. a function together with its arguments (an argument is also 
an array expression) 


If an expression produces a function, then it is called a func- 
tion expression. A function expression is either: 


1. a function 


2. an operator together with its operands (an operand is also 
a function expression or an array expression) 


Certain expressions produce neither arrays nor functions. An 
array or a function expression may be enclosed within parenthe- 
ses. i 


Evaluation of an expression proceeds from right to left, unless 
modified by parentheses. If an expression results in an array 
value which is not assigned to a name, then that array value is 
displayed. 


Example: 


The order of execution may be modified by parentheses. 
Example: 


(8-3)-1 
4 


Either blanks or parentheses are needed to separate names of 
ađjacent constants, variables, defined functions, and defined 
operators. If F is a function, then: | 


F2 +> F 2 


F2 «> F(2) 
F 2 es (F)2 
F 2 +> (F)(2) 


More than one blank or parenthesis between names is redundant, 
but permitted: 


F 2 > F 2 
F 2 +> F (2) 
F 2 > (F) 2 
F 2 > (F) (2) 
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2 


F2 e F 

F 2 *«> F((2)) 

F 2 «> ((F))2 

F 2 > ((F))((2)) 


Blanks or parentheses are not needed to separate names and 
primitive functions or operators, but they are permitted: 


-2 |> a 2 

=2 e> -(2) 

-2 +4 (-)2 

-2 +> (-)(2) 

-2 ¢% - 2. 

-2 er - (2) 

-2 er (-) 2 

-2 +> (-) (2) 

-2 «> -((2)) 

-2 +> ((-))2 

-2 «> ((-))((2)) 
1+4.x2 +> 1+.x2 


1 + . x 2 
1+.x2 «> (1)(+)(.)(x)(2) 


Ae1 «> Aedo 


STATEMENTS 


A statement is a line of characters which is intended to be 
understood by the APL2 system. It may be composed of 


1. a jlabel (which must be followed by a colon) 
2. an expression (which may be composed of other expressions) 
3. a comment (which must start witha a) 


Fach of the three parts is optional, but if present, they must 
be in the order given. Everything in a statement to the right 
of the first comment symbol (a) that is not part of a character 
constant is a comment. Blanks adjacent to the a on either side 
are significant. This permits the texts of comments to be 
aligned in defined functions and operators. Refer to tAppendix 
A. Further Examples" on page 313 for an example. 
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Examples: 


2+3 
5 
LABEL:2+3 
5 
2+3ACOMMENT 
5 
LABEL:2+3 a COMMENT 
5 
FUNCTIONS 


A function is an operation which takes either zero, one, or two 
arrays as explicit arguments and may explicitly produce an 
array as a result. It may be either: | | 


DYADIC defined for a left and a right argument 
MONADIC defined for a right argument, but not a left argument 


NILADIC defined for no arguments (A niladic function may not 
be used as the function operand of an operator.) 


The number of arguments for which a function is defined is 


called its valence. 


The name of a non-niladic function is ambi-valent. That is, it 
potentially represents both a monadic and a dyadic function, 
but both functions may or may not be defined. The function (ei- 
ther the monadic or the dyadic definition) intended in any 
usage is determined from syntactical context. 


An ambi-valent function name may be used in the context of 
either a monadic or a dyadic function. If the context calls for 
a function definition which does not exist, then an error will 
occur. A function which has a monadic definition, but which 
does not have a dyadic definition, is strictly monadic. It may 
not be used in the context of a dyadic function. 


Functions have long scope on the right. That is, a function's 
right argument is the result of the entire expression on its 
right which produces an array. A dyadic function has short 
scope on the left. That is, a function's left argument is the 
array on its left. The effect of these rules can be seen in the 
= following example where the redundant parentheses are shown: 
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1 es 8-(3-1) 7 
9 «> (1 2)-((3 4)-(8 9) 


DEFINED FUNCTIONS 


Functions may be defined with the system function OFX, or with 
the system editor (see "The APLZ Default Editor" on page 291 or. 
"The APL2 Extended Editor" on page 295). The header of such a 
definition must specify the name of the function, the 
argument(s) of the function, and the (optional) result (see 
"Function and Operator Definition" on page 275). 


A dyadic defined function is ambi-valent. That is, its left 
argument is not required when the function is called in 
context. If such a dyadically defined function is called with- 
out a left argument, then the left argument will be undefined 
(will have no value) inside the function. 


Example: 
V ZeL F R 
C1] Z+0NC 2 1p'*t ER" 
y 
F 1 
1 F 1 
2 2 
Onc is described in "System Variables" on page 203. 
If a function is defined with a right argument, but without a 


left argument, then the function is strictly monadic, and a 
dyadic call in context will cause a VALENCE ERROR, | 


Example: 
Vv 2eG R 
[1] Ze2xR 
Y 
G 1 
2 
104 
VALENCE ERROR 
| .1G1 
A A 
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Niladic defined functions do not take arguments, and are not in 

the function domain of operators. If a niladic function 

produces an array result, then it more closely resembles a var- o 
iable in context. 


A defined function need not produce an explicit result, 


OPERATORS 


An operator is an operation which takes at least one function, 
and possibly another function or array, as operands, and 
produces a new function called a derived function. Operators 
are not ambi-valent. A particular operator is either monadic 
or dyadic, but not both. That is, a dyadic operator (one 
defined for two operands) may not be used with only one 
operand. The derived function produced by an operator may be 
ambi-valent. 


The left operand of an operator must be a function. Thus, the 
only operand of a monadic operator must be a function. The 
right operand of a dyadic operator may be either a function or 
an array. 


Operators have higher precedence than functions. Operators 
have long scope on the left. That is, an operator's left oper- 
and is the longest function expression on its left. The left 
function operand of an operator is terminated with either: 





1. the end of the expression 
2. the rightmost of two consecutive functions 
3. a function which has an array to its left 


A dyadic operator has short scope on the right. That is, an 
operator's right operand is the single function or array on its 
right. The effect of these rules can be seen in the following 
examples, where the redundant parentheses are shown: ` l 


pp “A > p(((p")”)A) 
A+B+.XxX.4C+D +> At+(B((+.x).%) (CHD) ) 
AFB CX. )CHD €> — A+(B(+.(x.x*))(C04D)) 


Parentheses may be placed around functions or derived func- 
tions. 





20 APL2 Language Manual 











EFINED OPERATORS 





Operators may be defined with the system function Fix (OFX), or 
with the system editor (see "The APL2 Default Editor" on page 
291 or "The APL2 Extended Editor" on page 295). Defined opera- 
tors are specified by giving the definition of the derived 
function. The header of such a definition must specify: 
1. the name of the operator 
2. the operand(s) of the operator 
3, the argument(s) of the derived function 
4. the explicit result (optional) 
The name and operands of a defined operator are enclosed in 
parentheses in the header (see "Function and Operator Defi- 
nition" on page 275). 
Example: 

Y Ze(F REDUCE) R 


C1] ZeF/ R 
V 


+REDUCE 1 2 3 


6 


In this example, REDUCE is the name of the operator. F is the 
operand of the monadic operator REDUCE. R is the argument of 
the monadic derived function (F REDUCE). Z is the result of the 
derived function. | | | 


Example: 


= Y ZeL (F DOT G) R 
(13 ZeL F.G R 
y 


| 1 2 +DOT x 3 4 
11 


In this example, DOT is the name of the operator. F and G are 
the operands of the dyadic operator DOT. L and R are the argu- 
ments of the dyadic derived function (F DOT G). Z is the result 
of the derived function. 


Defined operators are not ambi-valent, but their derived func- 
tions may be. The left operand of a defined operator must be a 
function. Thus, the only operand of a monadic defined operator 


must be a function. The right operand of a dyadic defined oper- 


ator may be either a function or an array. 
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Monadic and dyadic operators may each produce either monadic or 
dyadic derived functions. The argument(s) of a derived func- 
tion must be arrays. The derived function produced by a 
defined operator need not produce an explicit result. | 


For more examples of defined operators, refer to the EXAMPLES 
workspace described in “Appendix E. Supplied Workspaces" on 
page 325, 


LOCKED FUNCTIONS AND OPERATORS 


A defined function or operator may be locked by opening or 
closing its definition with ¥ in the APL2 Default Editor or in 
the APL2 Extended Editor, or with the dyadic system function 
OFX. A locked function has the following execution properties: 


1. It cannot be displayed or edited, and its canonical repre- 
sentation is a matrix with shape 0 0. 


2. It cannot be suspended, just as primitive functions 
cannot, 


3. Weak interrupts will be ignored during its execution. 


4, Any non-resource error within its scope will be converted 
into a DOMAIN ERROR in the invoking expression. 


SELECTIVE SPECIFICATION 


—_ 


Selected elements in a named array variable may be given values 
while leaving the shape of the array and unselected elements 
unchanged. This is called selective specification. It is 
accomplished by Bracket Indexing, and other functions which 
deal only with the positions of elements, or of an item in an 
array. Functions that are permitted in selective specifica- 
tion are shown in Figure 1 on page 23. 


The right-most name (not in brackets) encountered in an 
expression on the left of an assignment symbol is treated as an 
array of locations within the named array. The result of the 
expression may be a subset or re-arrangement (or both) of the 
selected locations. It is these selected locations which 
receive new values. 
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Notes: 
V is the name of an array being selectively 
specified. 
is an array of new elements for V. 
is a specification of axes in V. 
is a simple integer array. 





Figure 1. Selective Specification Functions 
Examples: 
yveiti2345 6 
-vV[2] «+ 10 
nn a 
1103 45 6 
V[5 4] «+ 20 30 


V 
1 10 3 30 20 6 
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M e 3 3019 
(1 19M) + 100 200 300 


M 
100 2 3 
4 200 6 
7 8 300 


Several functions may be applied in selective specification. 
Example: 


Ve 33912345678 9 


V 

1 2 3 

4 5 6 

789 
(44 ,9V) + 10 20 30 40 
V 

10 40 3 

20 5 6 

30 8 9 


Scalars being selectively assigned to a non-scalar array of 
locations will be replicated as necessary. 


Examples: 

V e 11,23.456! 

V[2 5] € ';! 

V 
1:23:456 

((1:t=V)/V) «€ t/t 

V 
1/23/456 
In selective specification of elements, dimensions of length 
one are ignored on either side of the assignment arrow. The 
remaining dimensions which are not of length one must agree in 
rank and length, so that multiple elements may be selectively 
specified at a time. | 
Examples: 

V «e 11.23.456? 

V[2 5] + 2 1p!z! 


V 
1323;456 
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V[2 1p2 5] + 2p',” 
V 
1,23,456 


In selective specification of an item, all dimensions on the 
right side of the assignment arrow are significant. Only one 
item may be selectively specified at a time. An item of an ele- 
ment, or an item of an item may be selectively specified. An 
element of an item may not be selectively specified. 


Example: 


V «+ (2 3p 'HERYOU") (2 2o0'HEME') 


V 

HER HE 

YOU ME 
(2>V) + 2 1p'US! 
y | 

HER U 

YOU S 


(2>V) e 1 2p*US! 
y 
HER US 
YOU 


Nested indices are not permitted with Bracket Indexing in 
selective specification. 


The result of a selective specification is the array being 
specified. | 


Example: 


M + 3 412345678 91011 12 
M[2;,] + M[3;] + 


M 


5 
0 


wo, 
oooO 


mM 
O 
2 


O ON 


1 


SHARED VARIABLES 


Shared variables in APL2 permit interfacing to other systems, 
subsystems, devices, the APL2 environment, and auxiliary 
processors. Each share is bilateral (each shared variable has 
two owners), although multiple variables may be shared > 
simultaneously. Variables may be explicitly shared between: 


1. two active APL workspaces 
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2. an active APL2 workspace and an auxiliary processor 


At any instant, a shared variable has only one value -- that 
last assigned to it by one of its owners. 


A shared variable is syntactically indistinguishable from an 
ordinary variable. It may be both set and referenced. System 
variables are shared variables which are automatically shared 
with the APL2 system. E 


Several of system functions are available for manipulating 
shared variables and their protocols, through which a wide 


variety of effects can be achieved. Refer to "System 
Functions" on page 181, 
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ATTRIBUTES OF PRIMITIVE FUNCTIONS © 


ERVAS 


Some of the APL2 primitive functions are pervasive, while oth- 
ers are not. All pervasive functions are scalar functions, but 
a scalar function is not necessarily a pervasive one. 

Scalar and pervasive functions have the following properties: 
4. Monadic Scalar Functions 


a. The function is applied igdenendentiy to each element 
in its argument. 


Example: 


-1 2 +> “1 72 


2. Dyadic Scalar Functions 


a. A scalar argument will be extended (replicated) to 
conform to the shape of the other argument. 


Example: 
12+3 & 45 
b. The function is applied independently to each corre- 
sponding pair of elements in its arguments. | 
Example: 
12+384 «e 4 6 
Pervasive functions have the properties of scalar functions at 
all levels of array nesting, not just at the top level. Perva- 
sive functions have the following additional properties: 
To Monadic Pervasive Functions 


a. The function produces a result with a structure iden- 
tical to that of its argument. 


b. The function is applied independently to each simple 
scalar in its argument. 


y 
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2. 


28 


C. 


Example: 


ai (23) «e 4 (273) 


If applied to an empty argument, the function produces 
its argument unchanged. 


Dyadic Pervasive Functions 


a. 


The function produces a result with a structure iden- 


tical to that of its arguments (after any scalar exten- 


sions). 
The function is applied independently to corresponding 
pairs of simple scalars in its arguments (after any 
scalar extensions). 
Example: 

1 (2 3) + 3 (4 5) e> 4 (6 8) 


If a simple scalar corresponds to a non-simple scalar 
in its arguments, then the function is applied between 


«the simple scalar and the items of the non-simple 


scalar. 
Example: 

1 + c2 3 e «3 4 
If applied between empty arguments, the function 
prođuces a composite empty structure resulting from 
any scalar extensions, and showing preference for the 
right argument if data types differ. 


Example: 


(Opct * (0 0)) = OpcO O <> Opcd (0 O) 
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PERVASIVE FUNCTIONS 


The primitive pervasive functions are shown in Figure 2. Some 
symbols (~ ? e) denote monadic pervasive functions, but their 


dyadic forms are not pervasive. 


00% T eK 1 + 


? 
€ 
A 
V 
N 
Ap 
< 
< 
2 
> 
2 


Note: 


Monadic 


Conjugate 
Negative 


Direction 


Reciprocal 
Magnitude 
Floor 
Ceiling 
Exponential 
Natural Log 
Pi Times 
Factorial 
Not 


Roll 


Type 


Add 
Subtract 
Multiply 
Divide 
Residue 
Minimum 
Maximum 
Power 
Logarithm 
Circular 
Binomial 
{note} 
{note} 


{note’} 


And. 

Or 

Nand 

Nor 

Less 

Not Greater 
Equal 

Not Less 
Greater 

Not Equal 


All dyadic forms may take an axis. 
1 The dyadic form is not pervasive. 


Figure 2. 





Primitive Pervasive Functions 


PERVASIVE FUNCTION AXES 


Any of the primitive dyadic pervasive functions may be applied 
with an axis specification as follows: 
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Z € L FLA) R 


where A is a simple scalar or vector selection of axes, not con- 
taining repetitions, and satisfying the following expressions: 


(p,A) = (ppL)LppR 
A/ A e ılppL)lppR 


Either L must be a sub-array of R, or R must be a sub-array of L. 
An axis specification modifies the behavior of the pervasive 
function F at the top level of application to its arguments. At 
deeper levels, the behavior of the function F is unchanged. 


Examples: 


10 20 +[1] 2 3p1 238456 
11 12 13 
24 25 26 


to add a vector to each column of a matrix. 


10 20 30 +[2] 2 3912345 6 
11 22 33 | 
14 25 36 


to add a vector to each row of a matrix. 


The order of multiple axes used with dyadic pervasive functions 
does not matter. 


Examples: 


(2 3p16) +[1 2] 2 3p10x16 
11 22 33 
44 55 66 


(2 3p16) +[2 1] 2 3p10x16 
11 22 33 
44 55 66 


Axis numbers A are origin dependent. Any empty vector is 
treated as an empty numeric vector, and is acceptable for an 


axis specification. See also "Bracket Axis Operator" on page 
168. 


NON-PERVASIVE FUNCTIONS 


The primitive non-pervasive functions are shown in Figure 3 on 
page 32. Some symbols (~ ? e) denote dyadic non-pervasive 
functions, but their monadic forms are pervasive. 


Non-pervasive functions have the following properties: 


30 APL2 Language Manual 














1. A non-pervasive function produces a result with a struc- 
ture in general different from that of its arguments. 





2. Arguments of a dyadic non-pervasive function are not nec- 
essarily extended. 


The primitive non-pervasive functions are divided into 
classes: | | 


STRUCTURAL Produces an array of data type similar to the right 
argument (generally dependent on its rank, shape, or 
nesting, but independent of the elements within it) A 
possibly under control of a left argument. 


SELECTION Produces an array of data type similar to the right 
argument, which is a subset, cross section, or 
re-organization of its elements, possibly under con- 
trol of a left argument. 


SELECTOR Produces a simple logical or integer array which is a 
map or set of indices of its right argument, possibly 
under control of a left argument. | 


MIXED Produces an array of data type similar to the right 
argument dependent on the elements within it, and 
possibly dependent on the elements within a left 
argument. 


© TRANSFORMATION Produces an array of data type independent of 
that of the right argument, possibly under control 
of a left argument. 


MISCELLANEOUS May not take explicit arguments » Or may not have 
the syntax of a function. Miscellaneous functions 
are not in the function domain of operators. 


Some symbols (p > 1) denote non-pervasive functions which have 
monadic and dyadic uses in different classes, 


Some non-pervasive functions may take an optional numeric axis 
specification in brackets. The axis numbers usually specify 
along which axes of one or both arguments the function is to be 
applied. An axis specification for a primitive non-pervasive 
function modifies the function's behavior in a manner depend- 
ent upon the particular function. 


| | An axis specification may be a numeric scalar or vector, while 
| the range of permitted values is determined by the particular 
D function and arguments with which it is used. An axis specifi- 
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CONE 


- Structural 


Selection 


O 


m | Monadic Pg Dyadic 








































Reshape 
Ravel [] Catenate []J 
Reverse [] Rotate [] 
Reverse [] Rotate [] 


Transpose Transpose 
Enclose [] 
Disclose [] 


Unite 


{note} 


c u ng OOs D 









Pick 
Drop [] 

Take [] 
Replicate [] 
Replicate [] 
Expand (J 
Expand [J 
Index [] 
Without 
















note?) 
{note'} 


ll CIA” hh a > OU 





Selector Interval 61 Index of 
Index set 60 {note '} 
Unique [J] 61 
(note?) Member 
Grade Up 59 Grade Up 
Grade Down 57 Grade Down 





Deal 
Find [] 
Find Ind. 


note?) 


0] 





bkla vv <> 2>)10- 





Encode 
Decode 
Mat. Divide 


Mixed 


Mat. Inv. 
Eigen 
Poly. Zeros 


E 










Shape 74 (note!) 
Depth 68 Match 
Execute 69 

Format 70 Format 


Misc. 


we 4 
Ls 
uy) 
ry 
D 
= | 
Q 
jæ g 


gi 


Notes: | | 
CJ indicates that an axis specification is optional. 
1 This function is in another class. | 


Figure 3. Primitive Non-Pervasive Functions 


cation which is an empty vector is treated as an empty integer | a 
vector. 
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A non-pervasive function used without an axis specification is 
usually considered a shorthand notation for some default axes 
of the right argument (typically 1ppR, or T/1ppR). Axis num- 
bers depend on the index origin. See also "Bracket Axis Opera- 
tor" on page 168. 


AMBIGUOUS MBOLS 


Some symbols (/ # Y X) denote either dyadic non-pervasive func- | 
tions or monadic operators, depending upon the context in which 
they are found. They are called ambiguous symbols. If the 
object to the immediate left of an ambiguous symbol is either 
an array or a dyadic operator, then the symbol denotes a dyadic 
function. In all other cases, the symbol denotes a monadic 
operator (that is, if the object to the immediate left of an 
ambiguous symbol is either a function, a monadic operator, or 
another ambiguous Symbol; or it is neither an array nor a 
dyadic operator). | 


Pairs of brackets may denote three things: 


1. Bracket Indexing, if there is an array to the immediate 
- left of the left bracket. 


2. An axis specification, if there is a primitive monadic or 
| dyadic function or operator to the immediate left of the 
left bracket, and the brackets contain no delimiting semi- 
colons. 


3. The Bracket Axis operator, if there is a monadic or dyadic 
function to the immediate left of the left bracket, and the 
brackets contain one or two delimiting semicolons. 


FUNCTION PRESENTATION 


This manual presents the individual primitive pervasive func- 
tions first, and then the primitive non-pervasive functions in 
alphabetical order within class. All the monadic functions are 
presented before the dyadic functions. Figure 2 on page 29 and 
Figure 3 on page 32 show the function names and the pages where 
they can be found. The names of the function symbols, and the 
pages where descriptions of their uses begin, can be found in 
Figure 18 on page 286. The names of the function symbols as 
well as the names of the functions can also be found in the 
Index. 
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PRIMITIVE MONADIC FUNCTIONS 


The primitive monadic functions take a single array argument R 
(with possibly an axis specification A) and produce an array 
result Z. 


PRIMITIVE MONADIC PERVASIVE FUNCTIONS 


The primitive monadic pervasive functions are described as 
they apply to a simple scalar R in an arbitrary array, and 
produce a corresponding simple scalar Z. The extension of the 
function to each simple scalar in the argument is described in 
"Pervasiveness" on page 27. 


Example: 


f 10.1 (20.2 30.3) 
11 21 31 


If a primitive monadic pervasive function is executed on an 


array which contains any element outside the domain of the 
function, then DOMAIN ERROR will be reported. 


Ceiling: Zef R | 


R may be any real or complex number. If R is a real number, then | 

Z is the smallest integer which is not less than R (within the 

comparison tolerance). Ceiling is defined in terms of the 

function Floor: | 
TR > -L-R 

for all R. 

Examples: 


r 2 
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r 172 


132 

rf 1.2J2.5 
133 | 

fF 1.572.5 
232 

r 1.572.8 
233 


OCT is an implicit argument of Ceiling. 


Conjugate: Z € + R 


R may be any real or complex number. Z is the complex number 
whose real part is the real part of R and whose imaginary part 
is the negative of the imaginary part of R. 


Examples: 

+ 4 
T4 

+ 2.3 
253 

+ 132 


1J72 
Direction: Zex R 


R may be any real or complex number. If Ris O then Z is 0. IfR 
is not 0 then Z is the complex number of magnitude one with the 
same phase as R. . 


Examples: 
x 0 
0 
x q 
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o x 3J4 
0.6J0.8 
Identity: 

x R > R+I|R 


for all R. 


Exponential: Z € x R | 


R may be any real or complex number. Z is the Rth power of the 
base of the natural logarithms, e, where e is approximately 
2.7182818284590452. | 


Examples: 
* 0 
4 
* 1 


2.718281828 


x O71 
0.540302305970.8414709848 


* o071 
SA 


Factorial: Zee! R 


=- R may be any real or complex number except for a negative inte- 
ger. Z is the Gamma function of R+1. In particular, if R isa 
positive integer, then Z is the product of the first R positive 
integers. | 
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Examples: 





1 3 
6 

4 
24 

r 0.5 
0.8862269255 

t! 131 


0.6529654964J0.3430658398 


Floor: Z e LR 


R may be any real or complex number. If Risa real’number, then 
Z is the largest integer which is not greater than R (within the 
comparison tolerance). If R is positive, then Z is the integer 
part of R. | 





Examples: 

L 2 
2 

L 2.3 
2 

L 72,3 
73 


If R is the complex number A+0J1xB (where A and B are real), 
then: 


If 1 > (A-LA)+B-LB 
then Z <>  (LA)+0J1xLB 


If 1 < (A-LA)+B-LB and (A-LA) 2 B-LB 
then Z i: (1+LA)+O71xLB 


If 4 < (A-LA)+B-LB and (A-LA) < B-LB 
then Z <+> (LA)+0J1x1+L1B | 


This definition preserves the relation 1 > |R-LR, and produces 
a diamond, or diagonal brick pattern in the complex plane. 
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Examples: 


L 132 
132 | 

L 1.242.5 
132 

L 1.532.5 
232 
| L 1.532.8 
133 


OCT is an implicit argument of Floor. 


Magnitude: Ze |R 


R may be any real or complex number. If R is the complex number 
A+0J1xB (where A and B are real), then 


Z €> ((Ax2)+B8x2)x*x0.5 


which is the non-negative magnitude of R. 


Examples: 
|0 
0 
| 3 
3 
| 73 
3 
| “3.4 
3.4 
| 7334 
5 
Identity: 


| R +> (Rx+R)x0.5 
for all R. 
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‘Natural Logarithm: Z¢oR 


R may be any non-zero real or complex number. Z is the loga- 
rithm of R to the base of the natural logarithms, e, where e is 
approximately 2.7182818284590452. 


Examples: 

o 1 
0 

o 2.7182818284 
4 

o 71 
073.191592654 

o 0J1 


0J1.,570796327 





Negative: -R 


R may be any real or complex number. Negative is defined in 
terms of the function Minus: | 
-R +> O- R 
for all R. 
Examples: 


- 3 
“3 


- 3J°4 


“374 





R may be O or 1. If Ris 0, then Z is 1. If R is 1, then Z is 0, 
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Examples: 


~ 0 


«bh 


O 


Pi Times: Z¢+orR | 


R may be any real or complex number. Z is pi times R, where pi 
is approximately 3.141592653589793238. 


Examples; 


o 1 
3.141592654 


0 74 
~3.141592654 


| O 071 
073 .141592654 


Reciprocal: Z e + R 


R may be any non-zero real or complex number. Reciprocal is 
defined in terms of the function Divide: 


+R +> 1 ŁR 
for all valid R. 


Examples: 


+ 1 
4 
0.5 
-+ 231 
0.47°0.2 
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Roll: Z&? R 


R may be any positive integer. Z is an integer selected random- 
ly from the integers ıR, with each integer in this population 
having equal chance of being selected. 


Examples: 
? 5 
4 
2 5 
4 


Oro and ORL are implicit arguments of Roll. A side effect of 
Roll is to change the value of ORL. 


Type: Z eR 


R may be any character, or any real or complex number. If R isa 
character, then Z is ! ' (a scalar blank). If R is a number, 
then Z is (scalar) 0. 


Examples: 

e 0 
0 

e 334 
0 


=h 
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PRIMITIVE MONADIC STRUCTURAL FUNCTIONS 


The primitive monadic structural functions are those that deal 
with the rank, shape, or nesting of an array R, generally inde- 
pendently of the elements within the array, and produce an 
array Z of similar data type. 


Disclose with Axis: Z + >[A]J] R 


R must be an array such that all non-scalar items have the same 
rank, which must be p,A. If all items of R are scalar, then A 
must be empty. A is a simple scalar or vector of integer axes. 
The items of R are combined into a new array Z, with the depth 
reduced by one (unless A is empty and R is simple). If items of 
R have different shapes, then they will all be extended with 
their corresponding fill elements (at the right) so that they 
conform to the shape of the largest item. 


The axis specification A refers to axes in the result Z, rather 
than to axes in the argument R. The result Z has rank 
(ppR)+p, A. Disclose with Axis is the left inverse of Enclose 
with Axis: 


R «+> ofA] cL[A] R 


Examples; 


Z + >[1] (1 2 3)(4 5 6) 


pZ 
3 2 
Z 
1 4 
2 3 
356 
Z € >[2] (1 2 3)(4 5 6) 
pZ 
2 3 
Z 
123 
4556: 
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ONCE 
MORE 


ME 

YOU 
HIM 
HER 


ME 

YOU 
HIM 
HER 


WE 


HIS 
OUR 


Z € >[1] *' ONCE! '*MORE! 
pl 


Z 


Z + >[2] * ONCE! "MORE! 


pZ 


Z 


p >[1] 2 3p<0p0 


p >[3 2] Opc3 2p0 


R + (4 3p*ME YOUHIMHER!)(4 3p'WE US HISOUR!) 
R 

WE 

US 

HIS 

OUR 


Z + 2f2 3) R 
pZ 


Z 
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Z e of1 3] R 
pZ 

42 3 
Z 

ME 

WE 


YOU 
US 


RIM 
HIS 


HER 
OUR 


If all items of R do not have the same shape (after scalar 
extension), then they will be padded on the end(s) with their 
corresponding fill elements (ce>ITEM) to give them the same 
shape. 7 , 


Examples: 


Z + >[2]) (1 2)(3 4 5) 
pZ 


N 
EN U 


Z 
0 
5 


U) hb 


R e c'MY* "THINGS! 
R + R,c %'HER* BIG? 'RED! 'HAT' 
R + R,c %'SEVERAL* 'MORE' 


y 


MY THINGS HER BIG RED HAT SEVERAL MORE 
Pp R 


| pr” R | 
2 6 3 3 3 3 7 y 


Z «+ 2{2] R 
eZ 
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Z | 
MY THINGS 
HER BIG RED HAT 
SEVERAL MORE 


O O O 
O O O 
© O 

O O O 


MY HER SEVERAL 
THINGS BIG MORE 
RED 
HAT 


Q OOO 
OOOO 
O OOO 
O O 
O © 
O O 
O O 
= Q 
-* Q 
=O 


Enclose: Zec R 


R may be any array. Z is a scalar array (rank zero) whose only 
item is the array R. The depth of Z is one more than the depth 
of R, unless R is a simple scalar (a character or a number). 
Identity: 

y Ú +> pecR 
for all R. 


The Enclose of a simple scalar leaves the simple scalar 
unchanged. 
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Examples: 


ce 2 
2 
c 2 3 
2 3 
c 'MEt 
ME 


Note that the last two results are non-simple arrays, and are 
displayed indented one space. 


| Enclose with Axis: Z + c{A] R 


R may be any array. A is a simple scalar or vector of integer 
axes in R. The set of axis specified by A are enclosed, forming 
an array Z of rank (ppR)-p,A, with items of rank p,A. The shape 
of Z is (pR)[(1ppR)~A], and the shape of each of the items of Z 
is (pR)[,AJ. The depth of Z is one more than the depth of R, 
unless A is empty and R is simple. 

Identities: 


cR +> c[ippRJR 
c"R e+ c[ı0]R 


for all R. 
Disclose with Axis is the left inverse of Enclose with Axis: 


R e» ofA] ece[A] R 


Examples: 
Z + c[1] 2 3912345 6 
pZ 
Z 

14 25 36 


Z + c[2] 2 30123456 
pz | 


z 
123 456 
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R + 2 3 4p'LESSSOMENONEMOREMANYNOST! 


LESS 
SOME 
NONE 


MORE 
MANY 
MOST 


Z e e[17 R 
pZ 
34 
paz 
2 
2 
LM EO SR SE 
SM OA MN EY 
NN 00 NS ET 


Z e e[2] R 
pZ 
2 4 | 
paz 
3 
Zz 
LSN EOO SMN SEE 
MMM OAO RNS EYT 


Z e e{3]) R 
pZ 
2 3 
paz 
4 
2 


LESS SOME NONE 
MORE MANY MOST 


Z e c{1 3) R 


pZ 
3 

paz 
2 4 

Z 


LESS SOME NONE 
MORE NANY MOST 
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Z € c[2 3] R 





oZ 
2 
paz 
3 4 
Z 
LESS MORE 
SOME MANY 
NONE MOST 
Z € c[3 2] R 
pZ 
2 
paz 
4 3 
Z 
LSN MMM 
EOO OAO 
SMN RNS 
SEE EYT 


Ravel: Ze, R | 
B R may be any array. Z is a vector of length x/pR whose elements 
are the elements of R, taken in row major order. 


Examples: 


R + 2 3912345 6 
R 


à 
N 
nn W 
Ul y 


6 


222e123 45 67 8 


V y 
+ 


“J Y YY => 
N OV TN 


345678 


4 


SEVEN 


1o'SEVEN' 


ug 
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R + 1 3 2p'YoU' 'ME' INE? 1THEY' US? "THEM! 





R 
YOU ME 
WE THEY 
US THEM 


R 
9 
YOU ME WE THEY US THEM 


Raveling an array does not change its depth, except for a sim- 
ple scalar. 


Example: 


R + 2 2p1 (2 2) (2 2p3) (3 3p4) 


R 
1 22 
33 444 
33 444 
4 4 4 
, R 
122 33 444 
33 444 
444 





Ravel with Axis: Z + CLAJ R 


R may be any array. A is a simple scalar or vector axis spec- 
ification. Z is an array whose elements are the elements of R, 
but reshaped according to the axes A. There are two distinct 
cases: 


1. If A is a scalar or vector of contiguous integer axes (in 
increasing order) of R, then Z has those axes combined, and 
has rank 1+(ppR)-p,A. 


2. If A specifies a single fractional axis of R such that 
A>DIO-1 and A<DIO+ppR, then Z has the corresponding posi- 
tion in its shape filled with a new axis of length one, and 
Z has rank 1+pọR. 


In all cases, 


sR +> ,,fAJ R 





50 APL2 Language Manual 








If A is empty, then: 


¿[107 R +> ((pR),1)pR 


Examples: 


Huy 0 


wo un — 
O NN 


13 14 
17 18 
21 22 


6 4 


N Eu 


ONE 


w w = O 


Z e ,[10] 'ONE' 
Z 


pZ 


Z e ,C1 2] 2 3 p124 
Z 
3 4 
7 8 
11 12 
15 16 
19 20 
23 24 
pz 


Z + ,[1.57 3 4 
2 

pZ 

Z e ,[0.5] *ONE! 
Z 

pZ 


Z e ,[1.5] 'ONE' 
Z 


pZ 
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Reverse: Z ep R | 


R may be any array. Z is an array with the same shape as R, and 
with the elements of R reversed along the last axis. 


Examples: 
R + 3 4pir12 
R 
1 2 3 4 
5 6 7 8 
91011 12 
> R 
4 3 21 
8 7 65 
12 11 10 9 


R € 2 4o'WE THEY! 
R 


WE 
THEY 


$ R 
EW 
YEHT 


The symbol e may be used instead of dé to indicate the first axis 
of R rather than the last. 


Examples: 

© 3 4p112 
9 10 11 12 
5 6 7 8 
12 3 4 

© 2 4p'WE THEY! 
THEY | 
WE 


Reverse with Axis: Z + $[A] R 


R may be any array. Aisa Simple scalar or one element vector 
which specifies an integer axis in R. Z is an array with the 
same shape as R, and with the elements of R reversed along the 
axis specified by A. 
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- Examples: 


$(2] 2 3 49124 


10 11 12 


ab PY 

U a ë +, 
ab mb Pp) | 

UN Y WwW y 
-æ HN 

NO 2 £ 0 


412] 2 3 5p'IN OUT UP DOWN LEFT RIGHT‘ 
UP | 
our 
IN 
RICHT 
LEFT 
DOWN 


The symbol o may be used instead of >. 





Transpose (Monadic): 2+¢&R 


AR may be any array. Z is an array of shape ¢pR, similar to R, 
with the order of the axes of R reversed. 
Identities: 
R «> QU 

$pR <> PAR — 

QA +> (O1pPR)RR 
for all R. 
Examples: 


R e 3 ġp:112 


OG A ad 
a 

O AN 
«bw y 
N Oo LL 


bh 
ax 


nd 
y 


& WW = 
O 30 UU 
ab ab ab 

N =è O wo 
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X 2 4ptWE THEY! 


R¢ 2 3 49 ' LESSSOMENONEMOREMANYMOST ! 
R 

LESS 

SOME 

NONE 

MORE 

MANY 

MOST 
Z e OR 

4 3 2 


LM ` 
SM 
NM 
EO 
00 
SR 
NS 
SE 


EY 
ET 


R may be any array. Z is a simple vector whose elements are all 
the simple scalars in R, taken in (nested) row major order, 
such that: | 


u R e> uu” R 


for all R. 
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Examples: 


z «eu (1 2) (10) (2 2p3 4 5 4) 





Z 
12345 4 
oZ 
6 
Z «e u 'ME! tt tyou't (2 4p! THEYTHEM!) 
Z 
MEYOUTHEYTHEM 
pZ 
13 
Z “e y 'MEt tt *YOU! (WE! (*THEY' 'THEM!*)) 
Z | | 
MEYOUWETHEY THEM 
oZ 
15 


If R is simple, then uR is ,R. 


Example: 


u 2 4p'THEYTHEM' 
THEYTHEM 
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ERIMITIVE MONADIC SELECTION FUNCTIONS 


The primitive monadic selection functions are those that 
extract a sub-array, cross-section, re-organization, or other 
element selection of an array R, and produce an array Z of simi- 
lar data type. | 


R may be any array. If R is not empty, then Z is an array whose 
value is the first item of R taken in row major order. If Ris 
empty, then Z is the prototype of A (its disclosed structure). 
Identity: 


R «> >eR 


for all R. 
Examples: 
2123945 
4 
> (1 2)(3 4 5) 
1 2 
> IME? 
M 
> IME! tyou? 
ME 
> Opel 2 
00 
| > c[1] 2 0p0 
0 0 


> Ope 1 (2 3) 
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PRIMITIVE MONADIC SELECTOR FUNCTIONS 


The primitive monadic selector functions are those that gener- 
ate indices or a map Z of an array R. 


Grade Down: Z eV R | > 


R must be a non-scalar non-mixed simple array (of either char- 
acters or numbers, but not both). Z has shape 1+pR, and is the 
permutation of 11t+pR that puts the sub-arrays along the first 
axis of R in non-ascending order. The indices of any set of 
identical sub-arrays in R occur in Z in ascending order. 


Examples: 

¥ 686768 8 9 
8 267 4 1 3 5 

y 4 20686768839 
41 3 2 | 
If R is a character array, then YA is treated like LYR, where L 
is a default collating sequence. The default collating 
sequence array is shown in Figure 4 on page 58. It is 


3-dimensional, and has shape 10 2 28. The first character in 
each row is a blank. 


The default collating sequence array sorts an alphanumeric 
character vector R such that the ascending order is: 


ıı AAABBDbCCcDDAEEeFEfGGgHEhILi 


JJ jKKKLLIMMMNNNO0O0PPpPQQarRERr 
SSSTTtUUUVVvWWwWXXxYYyZZ20123456789' 


Example: 


R + 5 4p!DEALLEADDEADDEEDDALE! 
R 


DEAL 
LEAD 
DEAD 
DEED 
DALE 


u) -4 
n dy 
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ABCDEFGRIJKLMNOPQRSTUVWXYZO 
CDEF LMNO STUVY 


1 
abcdefghijklmnopqrstuvwxyz 


2 





Figure 4. The Default Collating Sequence Array 


The default collating sequence array also has the property that 
it sorts numeric integer suffixes in rows of a matrix in numer- 
ic order. 


Example: 


R + 8 3p'X1 X10X2 X21X3 X9 X11X3 ! 
R 


X10 
X2 
X21 
X3 
X9 
X11 
%3 
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| Y R 
472865 3 1 


RLWR3] 
x21 
x11 
x10 


Oro is an implicit argument of monadic Grade Down. 


Grade Up: Z+¢A4R | 


R must be a non-scalar non-mixed simple array (of either char- 
acters or numbers, but not both). Z has shape 1+pR, and is the 
permutation of ı1tpR that puts the sub-arrays along the first 
axis of R in non-descending order. The indices of any set of 
identical sub-arrays in R occur in Z in ascending order. 


Examples: 


4 6 8 


676889 
13542678 ~~ 

A 4296867688 9 
2134 


If R is a character array, then AR is treated like LAR, where L 
is a default collating sequence. The default collating 
Sequence array is shown in Figure 4 on page 58. It is 
3-dimensional, and has shape 10 2 28. The first character in 
each row is a blank, 


Example: 


R + 5 Up*'DEALLEADDEADDEEDDALE* 
R 


DEAL 
LEAD 
DEAD 
DEED 
DALE 


+ > 
N y 
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The default collating sequence array also has the property that 
1t sorts numeric integer suffixes in numeric order. 





Example: 


R + 8 3p'X1 X10X2 X21X3 Y9 X11X3 1 
R 


4 Ro 
13568274 


RCAR;) 





OJO is an implicit argument of monadic Grade Up. 


Index Set; Ze 0R 


R must be a simple scalar or vector of non-negative integers. Z 
is a simple array of integers not less than OJO, and has shape 
R,pR. Z consists of all combinations of the Intervals of R 
(17R), such that the following identities are preserved: 


A +> (D pA) 0 A 


Example: 


wh 
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ah oh ob 
N 


NNN. 
N 


OJO is an implicit argument of Index Set. 


Interval: Zea R | 


R must be a simple scalar or one element non-negative integer 
vector. Z is a simple vector of length R, containing R consec- 
utive ascending integers starting with DIO. 


Example: 


OZO. 
1 
: 14 
123 4 
DIO + 0 
14 
012 3 


Oro is an implicit argument of Interval. 


Unique: Z<nrR 


R may be any array. Zisa logical array of the same shape as & 
containing 1 where the elements in R first occur (in row major 
order). The vector of unique elements of R, in the order in 
which they occur, is (n,R)/,R. If R has no repetitions in its 
elements, then A/,nR is 1. 


Examples: 


-~ © 


n 1 
11100 
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R + *ME WE THEY THEM! 


n R 

111100110100000 
(nR)/R 

ME WTHY 


A 'M! tE! IME! tye 1Égt ty 
111101 


n 3 39102203234 


Unique with Axis: Z € n[A] R 


R may be any array. A is a simple scalar or vector of integer 
axes in R. Z is a logical array of shape (pR)[,4], containing 1 
where sub-arrays along the axes complementary to A first occur. 
If A is a single axis, then the unique sub-arrays of R, in the 
order in which they occur, is (nCAJR)/CAJR. 


Examples: 
R € 4 3p'ME YOUME TOO! 
R 
ME 
YOU 
ME 
TOO 
Z e nt1) R 
Z 
1101 
Z/C1] R 
ME 
YOU 
TOO 


+ n[1 27] 2 4 3pR 


+ n[t2)] R 


Q ~ 

O ~ 

oo 
NN O-NN 
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Z /12] R 
ME | 
you 
ME 
TOO 





Re 2 500102000000 
0 
0 


O O 


e nC2] R 


O =à 
O O 
-a N N ON w 


0 
/T2] R 


N 


012 
000 


OCT is an implicit result of Unique with Axis. 
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PRIMITIVE MONADIC MIXED FUNCTIONS 


The primitive monadic mixed functions are those that are not 
pervasive, but apply to an array R, and produce an array result 
Z depending upon the content of R. 


Eigen: Z «UR | 


R must be a simple square matrix of real numbers. Z isa simple 
real or complex matrix of shape 1 0+pR containing the 
eigenvalues and the eigenvectors of R. If R has shape N by N, 
then Z has N+1 rows and N columns. The first row of Z contains 
the eigenvalues of R, and the remaining rows of Z contain the 
corresponding right eigenvectors of R. That is, each column of 
Z contains an eigenvalue, and its corresponding right 
eigenvector. 


Example; 


N 2 2p1 00 2 


They obey the identity: 
XxC2]V <> R+,xV 


The eigenvalues X and the left eigenvectors V can be obtained 
by: 


Z + QNQAR 
X € Z031) 
V e 0 14Z 


They obey the identity: 


Xx[1TV <+> V+.xR 
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The eigenvalues and eigenvectors are computed using the "Im- 
plicit QL Algorithm" if R is symmetric, or the "QR Algorithm" 
if R is not symmetric. The numerical accuracy of the result is 
dependent upon the "condition" of the matrix of eigenvectors. 
In particular, accuracy may be degraded if there are repeated 
eigenvalues. 


Matrix Inverse: Ze BR | 


R must be a simple array of real or complex numbers with rank 
not more than 2. Z is a simple real or complex array with the 
same rank as R, and shape dpR. If R is a non-singular square 
matrix, then Z is the matrix inverse of R. If R is a 
non-singular matrix with more rows than columns, then Z is a 
pseudo inverse of R, in the least squares sense. 


If R is a scalar, then Z is +R. If Risa vector or a non-square 
matrix, then Z has other interpretations explained below. 


The system variable Implicit Result (OIR) is set to the alge- 
braic rank of R. If this is the same as the number of columns in 
R, then R is non-singular. 
Identity: 

BR e IBR 


for all non-singular matrices R, where I is an identity matrix 
of shape 2p1toR: 


I <+> (11l4pR)o.=114pR 


Examples: 


E 3 301 0002020 4 


E 3 3p1 00020 2 0 OJ4 
0 0 

0 0.5 O 

0JO0.5 O 0770.25 


cdo 


If R is a vector, then Z is its image obtained by inversion in 
the unit circle (or sphere). 
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Example: 


E 3 4 
0.12 0.16 


If R is a singular matrix, and the system variable Matrix 
Divide Tolerance (OMD) is 0, then a DOMAIN ERROR will occur, 
and the system variable Implicit Result (DIR) will contain the 
algebraic rank of R. 


If R is singular or has more columns than rows, and the system 
variable Matrix Divide Tolerance (DMD) is non-zero, then DMD is 
taken to be a fuzz on the algebraic rank determination of R. If 
the magnitude of (MD is suitable, then the system variable 
Implicit Result (DIR) is the algebraic rank of R, and Z is a 
pseudo inverse obeying the following identities: 


R +> R+.xZ+.XxXR 
Z €> Z+.xR+.XxZ 
R+.xZ > +QR+.xZ 
Z+.xR > +Q2+.xR 


Example: 


R + 3 39100100002 
R 


Q >» 
O O O 
NOO 


B R 
DOMAIN ERROR 

HR 

AA 


DMD + 1E°13 
B R 
0.5 0.5 0 
0 0 0 
0 0 0.5 
DZR is an implicit result of Matrix Inverse. DMD is an implicit 
argument of Matrix Inverse. (MD is not related to DCT. 


For information about the numerical accuracy of Matrix 


Inverse, refer to the description of the Matrix Divide 
function, on page 133. 
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Polynomial Zeros: Z + ÐR > 


R must be a simple non-empty vector of real or complex numbers, 
and not containing leading zeros. R represents a polynomial 
with coefficients in decreasing order of powers (constant on 
the right). Z is a simple vector of shape "1+pR, containing the 
zeros of the polynomial R. | 


Expressed conventionally, if f(x) = ax3+bx?+cx+d, then R is the > 


vector (a,b,c,d). If the result Z is the vector (p,q,r), then 


£(x) = (x-p)(x-q)(x-r). If R is real, and the length of R is 
even, then Z will contain at least one real number. 


Examples: _ 


B 72 1 
8 2 031 
81 72 1 


B101 
041 0371 


e 1 76 11 56 
123 


E 1 720 154 7584 1153 71124 420 
4 2.000000033 1.999999967 3 5 7 


The zeros are computed using the "Jenkins and Traub 
Algorithms", The accuracy of the solution depends on the "con- 
dition" of the polynomial. In particular, accuracy may be 
degraded if there are repeated zeros. Also, numerical roundoff 
may cause a pair of equal real zeros to appear as a complex con- 
jugate pair. | 
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PRIMITIVE MONADIC TRANSFORMATION FUNCTIONS 


The primitive monadic transformation functions are those that 
are not pervasive, but apply to an arbitrary array R, and 
produce an array result Z with data type independent of that of 
their argument. 


Depth: Z € = R 
R may be any array. Z is a simple non-negative integer scalar. 
Zis 0 if either: 
R is a (simple scalar) number 
R isa (simple scalar) character 
Z is 1 if Risa non-scalar simple array. That is, if either: 


R is not empty, and every item of R is a scalar character or 
number, 


R is empty, and the prototype of R is a scalar character or 
number, 


If R is non-simple and non-empty, then Z is 1+[/,="R. If R is 
non-simple and empty, then Z is =¢>R, Thus, simple arrays, 
always have depth of either 0 or 1. 


Examples; 

= 1 
O. 

= 41 
1 

= 10 
1 

= tyt 
0 

= 'MEt 
1 

= 12 txt 


1 


Non-simple arrays always have depth greater than 1. 
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Examples: 





= cl 2 3 
2 
= c'ME' 
2 
= Opct 2 3 
2 
= 'ME' YOU! 
2 
= Opc'ME! 
2 


An array of non-zero depth D contains at least one item of depth 
D-1, and may contain other items of lesser depth. 


Examples: 


‘et tMEt (tyou! '700') 


“ 12t IME! (tyout *TOO*) 


© "gt IME! ('YOU' *T00*) 
11 


O 
O 
© itt 


Execute: Zes R | 


R must be a simple character vector or scalar containing only 
valid APL2 characters, and not containing any terminal control 
characters (see "The APL2 Character Set" on page 285). I£Ris 
any empty vector, then it is treated like an empty character 
vector. | 


R is taken to represent an APL2 expression, and is executed in 
the context of the statement in which it is found. Z is the 
value of the APL2 expression. If the expression has no value, 
then 2R has no value. | 


& . 
E - 


Example: 


2 t14! 
© 1234 
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If there is an error in the APL2 expression R, then the error 
report will have an extra two lines showing the content of R, 
and where the trouble occurred in R. 





a F 


Example: 


$ *t14,5! 
DOMAIN ERROR 

14,5: 

A | 

214,5! 

A 


Format (Monadic): Z ev R 7 


R may be any array. Z isa simple character array which will 
display identically to the display produced by R 


If R is simple, then Z has the same rank as R. If Ris a simple 
character array, then Z is R. If R is non- simple, then Z is 
either a vector or a matrix. 


Example: 





Z + ¥ 2 3p'ME YOU! 


pZ 
2 3 

Z 
ME 
YOU 


Simple numeric arrays are formatted by columns. 
Examples: 


Z + ¥ 2 3p1 23 4 567 8 9 
pZ 


Z + ¥ 2 3p1 2.3 4 567 8 9 
pZ 


y 
vw 


Z 
2.3 4 
8 9 


w ah 


56 
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ees 














Z e7 2 3 40124 
pZ 


2311 


Z 
1 2 3 4 
5 6 7 8 
9 10 11 12 


13 14 15 16 
17 18 19 20 
21 22 23 24 


Formatting a non-simple array will display its rectangular 
nesting and hierarchy, with rows and columns formatted inde- 
pendently. Numeric scalar items will be aligned by decimal 
point (whether shown or not) in their columns. Character 
scalar or vector items in columns containing numeric scalars 
will behave like numeric integer scalars with the same number 
of digits. Character scalar or vector items in non-numeric 
columns and all other items will be left adjusted. 


The format of a non-simple array has one column sách of leading 
and trailing blanks. 


Examples: 


Z + v 2 3p'ME' 1 'YOU' 2 'THEM! 3 


pZ 
2 13 
Z 
ME 1 YOU 
2 THEM 3 


For clarity, the preceding display is erosti with each of the 
embedded blanks replaced by a comma: 


»ME,,,,1,YOU, 


»»2,THEM,,,3, 


Row and column spacing is determined from the context of the 
adjacent items. The spacing increases with the rank of the 
items. The number of embedded blanks is one less for character 
items than for other items. | 


Example: 


Z e ¥ 2 3p'ME! 1 (2 3p'YOUHER!) 2 ‘THEM! 3 
eZ 
4 14 
Z 
ME 1 YOU 
HER 


2 TREM 3 
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For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma: 


»ME,,,,1,,Y0U, 
srr»r»»»»»HER, 


9999999999999 9 


s»2,THEM,,,,3, 


Examples: 


Z+v0O012 (3 4) (5 6 7) 


012 34 567 


N 
2 
a 


01 2 (3 4) (1 3p5 6 7) 


012 34 567 
Z«v51p012 (3 4) (1 3p5 6 7) 


EN -»0 


3 
5 67 


For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma: 


9999005 
99999 > 
99999 9 
9997 9 9 
9999999 
5,6,7, 


The definition of monadic Format is applied recursively so that 
non-simple items within a non-simple array appear with a lead- 
ing and a trailing blank. 


Example: 


Z + v41 (2 3) ((4 5)(6 7)) (8 9) 
pz 
25 
Z 
1 2 3 &@5 67 8 9 
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For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma: | 


A OE 0 PE EN A es 


Example: 


Z e y t4t 'BC?! ('DE' 'FG!) 'HI' 
pZ 
19 
Z 
A BC DE FG HI 


For clarity, the preceding display is repeated with each of the 
embedded blanks replaced by a comma: 


»4,BC,,,DE,FG,,,HI, 
For more examples, refer to "Display of Arrays" on page 11. 


The result of monadic Format is created according to the fol- 
lowing formal rules: 


If R is simple, then 
ppZ +> (ppR)FNOTCHAR R 
if R is simple character, then 
Z > R 
if R is simple numeric, then 
“1+9Z > “1+t+oR 


If R is non-simple, then 

ppZ +> 1f2LP/(peR),up p ¥ R 

Z has single left and right blank pad spaces 

Z has S intermediate blank spaces between 
horizontally adjacent items A and B 
where S + ((ppA)+NOTCHAR A) [ (ppB)+NOTCHAR B 

Z has L intermediate blank lines between 
vertically adjacent items C and D 
where L + Of -1+(ppC)F eed 

if 3<ppR, then Z may contain blank lines 
for the inter-dimension spacing 


Where (NOTCHAR R) returns a 1 if R is not a simple character 
array, and a 0 otherwise: 


VY ZeNOTCHAR R 
C1) Z+1 
[2] +(1<=R)/0 
[3] Zet tv,2z,eR 
y 


OFC and OPP are implicit arguments of monadic Format. 
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Shape: Z ee p R | 


R may be any array. Z is a non-negative integer vector whose 
elements are the dimensions of R. The length of Z is the same 
as the rank of R. In particular, if Risa scalar, then Z is an 
empty vector. pppR is always 1p1. 








Examples; 

p 4 

pp 4 
0 l 

PP ,4 
1 

p 4 6 
2 

p 374 6 
2 

op 4 6 8 
3 

p "xt 

pp 'X'! 
0 

p 'ME! 
2 | 

p ‘INFINITY! 
8 

p 'ME! tyou! 
2 

p” 'ME! tyout 

2 3 

p (1 2 3)(1 2 3 4)(1 2) 
3 

p (1 2 3)(1 2 3 4) 
2 
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p (10)(10) 





p” (10)(10) 
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PRIMITIVE DYADIC FUNCTIONS 


The primitive dyadic functions take a left array argument L, 
and a right array argument R (with possibly an axis specifica- 
tion A) and produce an array result Z. | 


PRIMITIVE DYADIC PERVASIVE FUNCTIONS 


The primitive dyadic pervasive functions are described as they 
apply to corresponding simple scalars L and R in the left and 
right array arguments, and produce a corresponding simple 
scalar Z in the result array. The extension of the function to 
each corresponding pair of simple scalars in the arguments is 
described in "Pervasiveness" on page 27. — | 


Example: 


10 (20 30) + 1 (2 3) 
14 22 33 


After any scalar extensions, the left and right arguments must 
conform (have the same rank and identical shapes). If they 
don't have the same rank, then RANK ERROR will be reported. If 
they have the same rank but different shapes, then LENGTH ERROR 
will be reported. One-element vectors extend like scalars. 


If a primitive dyadic pervasive function is executed on two 
arrays which contain any corresponding pair of elements which 
are outside the domain of the function, then DOMAIN ERROR will 
be reported. | | 


The conformability requirement, as well as scalar extension, 
pervades to all levels if the arguments are nested. 


Ten of the primitive dyadic pervasive functions are called 
relational functions. They are called boolean functions when 
they are applied to logical arguments. These ten functions, 
and the results of their four possible sets of logical argu- 
ments are shown in Figure 5 on page 78. When applied to boolean 


functions, 0 means false, and 1 means true. 
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And 
Greater 


Less 

Not Equal 
Or 

Nor 

Equal 

Not Less 


Not Greater 
Nand 


be e bee & bo 


A:N? USN 
-y yN ydd E yY YY YNN Y Y O 


0 
0 
R 
0 
0 
0 
0 
0 
0 
0 
0 
1 
4 
1 
1 
1 
1 
1 
1 


a+ AZRLOODOOO0AAM AMADO 
A29Q902290022002=00 
>2020>029209020=x0x10 





Figure 5. Boolean Functions 





Add: Z eL +R 


R may be any real or complex number. L may be any real or com- 
plex number. Z is the arithmetic sum of L and R. Zisa real or 
complex number, 
Examples: 

0+ 2 

1+ 71 

1+ 3.4 


0J1 + 3.4 
3.4J1 
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R must be logical. L must be logical. Z is logical. Z is the 
logical And of L and R. 


Examples: 


0a 0 
0 
Oa 1 
0 
1 a0 
0 
4 A 1 
1 
Binomial: Z<+L! R 


R may be any real or complex number except fora negative inte- 
ger. L may be any real or complex number except fora negative 
integer. Z is a real or complex number. Binomial is defined in 
terms of the function Factorial: | 

L'R e> (1R)+(1L)x!R-L 
for all valid L and R. 


For non-negative integer arguments, Z is the number of distinct 
ways or combinations that L things can be chosen from R things. 


Examples: 
10 
2371 


O71 ! 2 
0.735215582J2.2056846746 
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Circular Functions: ZeLoR 


R may be a real or complex number. ZL must be an integer such 
that 712<L and 112. Z is a real or complex number. 


L determines which of a family of circular, hyperbolic, 
pythagorean, or complex numeric functions to apply to R. They 
are shown in Figure 6. Some of the complex numeric functions 
are available as separate primitive functions, but are also 
provided here for completeness. 


The formulas given for ~40R, ~80R, and 80R hold only for com- 
plex numbers with positive real and imaginary parts (the first 
quadrant). The phase of the result for other arguments is 
adjusted for proper placement of the cuts of the complex func- 
tions. 





(1-R*2)*0,5 0 (1-Rx2)x*0.5 
Arcsin R 1 Sine R 
Arccos R 2 Cosine R 
Arctan R 3 Tangent R e 
(—1+Rx2)x0.5 4 (14+Rx2)x0.5 
Arcsinh R 5 Sinh R 
Arccosh R 6 Cosh R 
Arctanh R 7 Tanh R 
-("1-Rx2)x0,5 8 (1-Rx2)x0.5 
R 9 Real R 

+R 10 IR 

OJ1xR 11 Imaginary R 
*OJ1xR 12 Phase R 


Note: | 
All angles are in radians. 


Figure 6. Circular Functions 
Identities: 
~80R +> -80R 


R ++ 710 “11 +.0 


9 1 
R e> 79 "12 x.o 10 1 


ll 0.0 R 
2 o.O R 


for all valid R, 
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Examples: 


001 
0 
40 1.5708 
1 
“4 o 1 
1.570796327 
“1 0 2 
4 .570796327J1.316957897 
90 374 
3 
10 o 374 
5 
11 O 374 
4 
12 o 3J4 
0.927295218 
“42,0 01 


-4 


Divide: ZeL+R 


R may be a real or complex number. L may be any real or complex 
number. Z is a real or complex number. If R*0, then Z is the 
numeric quotient L divided by R. If R=0, and L=0, then 2 is 1. 
If R=0, and L#0, then L+R is a DOMAIN ERROR. 


Examples: 


“412 + 4 
-3 


2 + 4 
0.5 


0J12 + 4 
0/73 


2 + OF4 
0J70.5 
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2 +0 
DOMAIN ERROR 

2+0 

AA 





R may be any character, or real or complex number. L may be any 
character, or real or complex number. Z is logical (either 0 or 
1). | 


If L and R are characters, then Z is 1 if they are the same char- 
acter. If L and R are both numbers, then Z is 1 if L and R are 
the same within a fuzz tolerance. That is, if L and R are both 
real, then L is considered equal to R if (|L-R) is strictly less 
than or equal to approximately DCTx( IL)TIR. If L and R are com- 
plex such that L is A+0J1xB and R is C+0J1xD, then L is 
considered equal to R if (lJA-C)+|B-D is strictly less than 
OCTxf/|A,B,C,D. This relation produces a diamond neighborhood 
in the complex plane. The implementation of the equality 
determination is approximate. 


Examples: 
Oer 

1E713 

12 f 
1 

1 = 1,000000000000001 
1 

1 = 1.00000000001 
0 

1 = 2 
0 

1 = 170.000000000000001 
1 

1 = 1J0.00000000001 
0 


OCT is an implicit argument of Equal. 
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Greater: ZenL>RrR 


R may be any real number. L may be any real number. Z is log- 
ical (either 0 or 1). If L is greater than R, and L=R is 0, then 
Zis1. Otherwise Z is 0. 


Examples: 

OCT 
1E°13 

1 > 1 
0 

4.000000000000001 > 1 
0 

1.00000000001 > 1 
4 

2 > 1 
4 


If either argument is a complex number, then it must be within 
system fuzz of a real number (see "System Fuzz" on page 11). 


Example: 

170.000000000000001 > 1 
1J0,00000000001 > 1 
DOMAIN ERROR | 


170.00000000001>1 
A A 


OCT is an implicit argument of Greater. 


Less: Z «€ L< R | | | 


R may be any real number. L may be any real number. Z is log- 
ical (either 0 or 1). If L is less than than R, and L=R is 0, 
then Zis1. Otherwise Z is 0. , | 
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Examples: 


OCT 
18713 
1< 1 
0 
1 < 1.000000000000001 
0 
1 < 1.00000000001 
1 . 
1 < 2 
1 


If either argument is a complex number, then it must be within 
system fuzz of a real number (see "System Fuzz" on page 11), 


Example: 


1 < 130.000000000000001 


1 < 170.00000000001 

DOMAIN ERROR | 
1<170.00000000001 
AA 


OCT is an implicit argument of Less. 


| Logarithm: ZeLoRrR | 


R may be any non-zero real or complex number. If R is not 1, 
then L may be any non-zero real or complex number not equal to 
1. If R is 1, then L may also be 1. Z is a real or complex num- 
ber. Z is the base L logarithm of R. Logarithm is defined in 
terms of the function Natural Logarithm: 


LOR <> (0R)+(0L) 


for all valid £ and R. 


Examples: 
1o01 
1 
3J4 e 1 
0 
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4 
| 201 
0 

2 © 2 
1 

2038 
3 

2072 


1J4,532360142 


2606 072 
1J2.266180071 


0J2 e 2 
0.1629839861J”0.3693510611 


0J2 e 0J2 


R may be any real number. L may be any real number. Z is a real 
number. Z is the larger of the numbers L and R. 


Examples: 
1 r 2 
2 
141 F 2 
4 | 
74 12 
2 
“1 172 
-14 


If either argument is a complex number, then it must be within 
system fuzz of a real number (see "system Fuzz" on page 11). 
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Example: 


1 F 070.000000000000001 


1 F 070,00000000001 
DOMAIN ERROR 

1roJo. 00000000001 

AA 


R may be any real number. L may be any real number. Zisareal 
number. Z is the smaller of the real numbers L and R. 


Examples: 

1 L 2 
1 

1 L72 
2 

=4 L 2 
~ 4 

-141 L 72 
2 


If either argument is a complex number, then it must be within 
system fuzz ofa real number (see nSystem Fuzz” on page 11). 


Example: 
O L 170.000000000000001 
* O L 130.00000000001 
DOMAIN ERROR 


0L1J0,00000000001 
AA 
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R may be any real or complex number. L may be any real or com- 
plex number. Z isa real or complex number. Z is the arithme- 
tic product L times R. 


Examples: 


0x 3 
0 
1x 3 
3 
2x 3 
6 
“2 x 3 
~6 
132 x 374 
"5J10 





R must be logical. L must be logical. Z is logical (either 0 or 
1). Nand is defined in terms of the function And. 


La RAR «> “LAR 


for all logical L and R. 


Examples: 

Ox 0 
1 

Ow 1 
1 

4 m1 
0 
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AUTE. A ee s 8 


R must be logical. L must be logical. Zis logical (either 0 or 
1). Nor is defined in terms of the function Or. a 


L* R e> «“LvR 


for all logical L and R. 


Examples: 
Oxo 
1 
O » 1 
0 | 
1» 1 
0 


Not Equal: ZeuLep, | 


R may be any character, or real or complex number. L may be any 
character, or real or complex number. Z is logical (either 0 or 
1). Not Equal is defined in terms of the function Equal. 

Le R ++ —L=R | 
for all L and A. 


If both L and R are logical (either 0 or 1), then this is equiv- 
alent to the logical Exclusive Or function. 


Examples: 

121 æ 191 
4 

12 49 
1 
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OCT 


1E°13 

4 2 1 
0 

4 * 1.000000000000001 
0 

4 = 1.00000000001 
1 

1 æ 2 
4 

4 * 170.000000000000001 
0 


170 .00000000001 


n 


1 
1 


OCT is an implicit argument of Not Equal. 


Not Greater: ZeLs R 


R may be any real number. L may be any real number. is log- 
ical (either 0 or 1). If L is less than R, or if L is equal to R 
(within fuzz), then Z is 1. Otherwise Z is 0. 

Examples: 


fer 
12713 


ts 1 

1 .000000000000001 < 1 
1.00000000001 < 1 

2 <s 1 


0 


If either argument is a complex number, then it must be within 
system fuzz of a real number (see "System Fuzz" on page 11). 
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Example: 
= 1J0.000000000000001 < 1 
1J0.00000000001 < 1 
DOMAIN ERROR 


170.00000000001 <1 
A A 


If both L and R are logical (either 0 or 1), then this is equiv- 
alent to the logical Material Implication. 


OCT is an implicit argument of Not Greater. 


Not Less: Z e L > R | | 


R may be any real number. L may be any real number. Z is log- 
ical (either 0 or 1). If L is greater than R, or if L is equal 
to R (within fuzz), then Z is 1. Otherwise Z is 0. 

Examples; 


-Der 
18713 


121 
1 2 1.000000000000001 


1 2 1.00000000001 


0 


If either argument is a complex number, then it must be within 
system fuzz of a real number (sez "System Fuzz" on page 11). 


Example: 
1 2 170.000000000000001 
1 2 170.00000000001 
DOMAIN ERROR : 


12170.00000000001 
AA 
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OCT is an implicit argument of Not Less. 


R must be logical. L must be logical. Z is logical. Z is the 
logical Or of L and R. 


Examples: 
Ov O 
0 
O v 1 
1v 0 
4 
1 v 1 
1 


Power: Ze Lx R 


If L is not 0, then R may be any real or complex number. If L is 
O, then R must be a non-negative real number. L may be any real 
or complex number. Z isa real or complex number. 


If R is 0, then Z is 1. If Ris 1, then Z is L. If Risa 
non-negative integer, then Z is x/RopL. In all other cases, the 
following generalization is preserved: 

L*A+B +*> (Lx*A)xLxB 
The Nth root of a number L is Lx*+N. In particular, the square 
root of a number L is Lx*0.5. In cases where there are multiple 
roots, the result is the one with the least non-negative angle 
in the complex plane. 
Examples: 


Ox O 
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2 
2 * 3 
8 
i 2 2 x* “3 
0.125 
"2 * 3 
~§g 
16 x 0.5 
16 x 0.25 
2 
716 x 0.25 
1.414213562J1.414213562 
2 x 03 
-0,486994418J0.8734050818 
0J2 x 3 
0J78 
0J2 x* 0J1 


0.1599090569J0.1328269994 


Residue: Z eL|R 


R may be any real or complex number. L may be any real or com- 
plex number. Z is a real or complex number. 


If L=0, then Z is R. If L#0, then Z is R-LXLR+L, For real num- 
bers L and A, Z is the remainder on dividing L into R. In par- 
ticular, if L is positive real, then 0sZ and Z<L. If L is 
negative real, then L<Z and Z<0. 
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Examples: 





o | 17 
17 
1 | 17 
0 
10 | 17 
7 
-10 | 17 
-3 
10 | 8 
8 
10 | 9 
9 
10 | 10 
0 
10 1 11 
1 
10 | 12 
2 
1 | 3.14159 
0.14159 
@ 0J10 | 17 
73 
7910 | 1037 
734 
476 | 7710 
374 


OCT is an implicit argument of Residue. 


Subtract: Zen - RP i 


R may be any real or complex number. JL may be any real or com- 
plex number. Z is a real or complex number. Z is the arithme- 
tic difference L minus R. 
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Examples; 





9 - 3 
2 

3 -5 
72 

3 - 75 
8 

3J4 - 5 
=2J4 | 
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PRIMITIVE DYADIC STRUCTURAL FUNCIIONS 


- The primitive dyadic structural functions are those that deal 
with the rank or shape of an array R, generally independently 
of the items within the array, but dependent upon an array L, 
and produce an array Z of data type similar to R. 7 


Catenate: ZeL,AR 


R mày be an array. ZL may be an array. The array L and the array 
R are joined along their last axis to form a (generally larger) 
array Z. | 


There are three cases of conformability: 


Arrays L and R may have the same shape (except possibly 
along the last axis), and then the last axis of Z has a 
length equal to the sum of the lengths of the last axes of L 
and R. 7 | o 


One of the arguments may have a rank less than the other by 
one, in which case its shape is augmented to include a unit 
last axis, and then it must meet the requirements of the 
first case. | 


Scalars will always be reshaped as needed to conform before 
application of the function. 


With one exception, the rank of Z is equal to the larger of the 
ranks of L and R, and not more than one greater than the 
smaller. The exception is the case where both L and R are 
scalars, and then Z is a two element vector. 


Examples: 


'RUN' , ‘NY! 
RUNNY 
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| 10 , 2 3p123 456 
10123 | 
104556 


10 11, 239123456 
10123 | 
11456 


(2 3p'ME YOU!) , '?! 
ME ? 
YOU? 


If one of L and R is empty, then the data type of Z will be the 
same as the other. If both L and R are empty, then the data type 
of Z will be the same as the data type of A. 


Catenate with Axis: Z + L ,TAJ R 


R may be an array. L may be an array. Aisa simple scalar or 
one element [vector axis specification, which may be 
fractional. 


If A is an integer in the range 1(ppL)[ppR, then Catenate with 
Axis is like the function Catenate, except that an axis other 
than the last may be specified. In such a case, the rank of Z is 
equal to the larger of the ranks of L and R. If A is fractional, 
then the rank of Z is equal to 1 plus the larger of the ranks of 
L and R. | | 


Examples: 
10 ,C1] 2 3p1 23456 

10 10 10 | 

1 2 3 

4 5 6 

10 11 12 ,[17] 2 3912345 6 

10 11 12 

1 2 3 

4 5 6 
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kkk k 
i kek k 


tx1,[1] 3 2 4p'ME YOU WE THEYUS THEM! 





ME 
YOU 


WE 
THEY 


US 
THEM 


1x1,[2]:3 2 Up*ME YOU WE THEYUS THEM!‘ 
de dede k | 
ME 
YOU 


te tee ke 
WE 
THEY 


~ Je te Fe te 


US 
THEM 


oe : 
*YOU 


*WE 
*TREY 


tx? C3] 3 2 4p*'ME YOU WE THEYUS THEM' 


* US 
*xTHEM 


If A is a single fractional axis such that A>(MI0-1 and 
A<DIO+(ppL)TppR, then the function may be called Laminate, 
rather than Catenate with Axis. This specifies the formation 
of a new axis between two existing ones, before the first, or 
after the last. If A is fractional, then L and R must have the 
same shape, or one of them must be a scalar (which will be rep- 
licated as necessary). 


Examples: 


10 20 ,[0.5] 1 2 
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10 ,[0.5] 2 39123456 
10 





10 10 10 


1 2 3 
4 S 6 


10 ,€1.5] 2 391 2345 6 
10 10 10 
1 2 3 


10 10 10 
4 5 6 


10 (2.53 2 391 2345 6 
10 
10 
10 


10 
10 
10 


NN Y > YN -—» 


tx? [0.5] 3 4p' YOU WE THEY! 
k kkk 
kk kk 
de He Je ke 





YOU 
WE 
THEY 


txt [1.5] 3 4p*' YOU WE THEY’ 
de ke ke k 


YOU 


kde dede 
WE 


te te te k 
THEY 


txt [2.5] 2 3p*YOUWE ' 
* Y | 
*O 
* U 


* Y 
*E 
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0 Reshape: Z¢iLorR 


R may be an array. L may be a simple scalar or vector of 
non-negative integers. Z is an array of shape L whose elements 
are taken sequentially from R in row major order, and repeated 
cyclically if required. If R is empty, then L must contain at 
least one zero. If L contains at least one zero, then Z is emp- 
ty. If L is any empty vector, then it is treated as an empty 
numeric vector. 





Identity: 

,L €> peLoR 
for all valid L and R. 
Examples: 


23 4 p 124 
12 3 4 
5 6 7 8 
9 10 11 12 


13 14 15 16 
17 18 19 20 


© 21 22 23 24 


3 2 4 p 'ME YOU WE THEYUS THEM! 
ME 
YOU 


WE 
THEY 


US 
THEM 


3 2 4 p 'MEYOUWETHEYUSTHEM' 
MEYO 
UWET 


HEYU 
STHE 


MMEY 
OUWE 


2 4 p *MEYOUWETHEYUSTHEM' 
MEYO 
UWET 
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2 4 p 3 1 2 Sp 'MEYOUWETHEYUSTHEM! 
MEYO | 
UWET 


Rotate: ZeLóR 


R may be any array. L may be a simple array of integers. Z is 
an array with the same shape as R. | 


If L is a non-negative scalar, then L elements are removed from 
the beginning of each vector along the last axis of R, and 
appended to the same vector. 


If L is a negative scalar, then |L elements are removed from the 
end of each vector along the last axis of R, and prefixed to the 
same vector, 


If L is a 1-element vector, then it is treated like a scalar. 
If L is not a scalar (or a 1-element vector), then pL must be 
~1+pR, and the vectors of R are treated independently according 
to the corresponding elements of L. | 


Examples: 
24 3 
3 
204123945 
34512 
204123945 
12345 7 
149.3 4pi12 
2 3 41 
6 7 85 
10 11 12 9 
0126 3 49112 
123 4 
6 78 5 
11 12 9 10 
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(3 292 3242 0) 4 3 2 4p'ME YOU WE THEYUS THEM! 
ME 
YOU 


WE 
THEY 


US 
THEM 


-(-32p2 1202 0) 9 3 2 Sp'ME YOU WE THEYUS THEM' 
ME | 
YOU 


WE 
THEY 


US 
THEM 


The symbol e may be used instead of $ to indicate the first axis 
of R rather than the last. 


Example: 


1 © 3 Sp'THISMANYMORE! 


Rotate with Axis: Z «€ L ÓLA)J R 


R may be any non-scalar array. L may be a simple array of inte- 
gers. A is a simple scalar or one element vector integer axis 
in R. Z is an array with the same shape as R, and with the ele- 
ments of R rotated along the axis specified by A. 


If L is a 1-element vector, then it is treated like a scalar. 
If L is not a scalar (or a 1-element vector), then pL must be 
(pR)C(tppR)~A], and the vectors of R are treated independently 
according to the corresponding elements of L. 


Rotate with Axis is like the function Rotate, except that an 
axis other than the last or first may be specified. 
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Example: 


01 2 412] 3 4p112 
123 4 
6 78 5 
11 12 9 10 


«do 


$€2] 3 2 Up*'ME YOU WE THEYUS THEM! 
YOU 
ME 


THEY 
WE 


THEM 
US 


The symbol e may be used instead of d. 


Transpose (Dyadic): Z e LAR 


R may be any array. ZL may be a simple scalar or vector of inte- 
ger axes in R. The number of elements in L must be equal to the 


rank of R. If L selects all axes of R, then Z is an array of 


shape (pR)CALJ, similar to R with the order of the axes of R 
permuted. If there are repetitions in L, then Z is an array of 
rank +/nL, 

Identities: 


pR «> (pLQR)[,L] 
XR +> (d1ppRIQR 


for all valid L and R where A/(ippR)eL. 
Examples: 


-(0p0) y 1 


cout 


218 3 49112 


&WN — 
an nn vi 
ah mh oh 

N = OV 
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R e 2 3 4p'LESSSOMENONEMOREMANYNOST'! 
RO 7 
LESS 
SOME 
NONE 





MORE 
MANY 
MOST 


243 


LSN / 
EOO 
SMN 
SEE 


MMM 
OAO 
RNS 
EYT 


Ze21380R 
324 
© z 
| LESS 
MORE 


SOME 
MANY 


NONE 
MOST 


Ze3129R 
eZ 

3 4 2 
2 
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If L does not select all axes of R, then there must be repe- 
titions in L. In such a case, two or more axes of R map into a 


single axis of Z, which is then a diagonal cross section of R 


with less rank than R. 
Examples: 


11393 3p19 
15 9 


11 2&8 3 2 4p'ME YOU WE THEYUS THEM! 
ME 
THEY 


It must always be true that a/(if/0,L)eL. DIO is an implicit 
argument of dyadic Transpose. 
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PRIMITIVE DYADIC SELECTION FUNCTIONS 


The primitive dyadic selection functions are those that 
extract a sub-array, cross-section, re-organization, or other 
selection of elements from an array R, and produce an array Z of 
similar data type, dependent upon an array L. In the cases 
where L is expected to be an array of integers, any empty array 
L is treated as an empty integer array. 


Drop: Z + Ly R | | 


R may be any array. ZL may be a simple scalar or vector of inte- 
gers. If L is a scalar, then it will be treated as a one element 
vector. If R is a scalar, then it will be treated as a one ele- 
ment array with shape (pL)p1. After any scalar extensions, 0,L 
must be equal to opR. 


Z is an array with the same rank as R (after any scalar exten- 
sion), but with its shape reduced by L. If L[I] (an element of 
L) is positive, then L[I] sub-arrays are removed from the 
beginning of the Ith axis of R. If LDI] (an element of L) is 
negative, then |L(I] sub-arrays are removed from the end of the 
Ith axis of R. | 


Examples: 


2 +12345 
345 


72 +12345 
12 3 


171 + 4 49116 


WW yu 


1 
1 


OCA 
Y u 


1 
4 
101+ 3 2 Up'*'ME YOU WE TREYUS THEM' 


REY 


HEM 
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Drop with Axis: Z € L +[LA] R | 


R may be any non-scalar array. L may be a simple scalar or vec- 
tor of integers. A may be a simple scalar or vector integer 
selection of axes in R. A may not contain repetitions. Z is an 
array with the same rank as R, but with (possibly truncated) 
shape (eR)C(,A]-IZL along axes A. The shape along axes not 
selected by A remains unchanged. 


Conformability requires that (p,A)<ppR, and that p,L is p,A. 
If Lis a scalar, then it will be treated as a 1-element vector. 


Drop with Axis is like the function Drop, except that only the 
selected axes are affected. | 


Identity: 


L+ R e> L +[1ppA] R 


Examples: 


(10) +(107 1 2 3 
123 


1 +[1] 3 4p112 
5 6 7 8 
9 10 11 12 


1 +[2] 3 49112 
2 3 4 
6 7 8 
10 11 12 


-4 4[1] 3 2 4p'ME YOU WE THEYUS THEM!" 
ME | 
you 


WE 
THEY 


“2 403] 3 2 4p'ME YOU WE TREYUS THEM! 
ME | | | 
YO 


WE 
TH 


US 
TH 


More than one axis may be specified. If so, then p,A must be 
PL. 
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Example: 


4-1 +1 3] 3 2 4p'ME YOU WE THEYUS THEM' 
WE 
THE 


US 
THE 


Multiple axes specified by A need not be in increasing order. 
Example: 


-4 4 403 1] 3 2 Up'ME YOU WE THEYUS THEM! 
WE 
THE 


US 
THE 


Expand: Z<+L\R | | 


R may be any array. L may be a simple logical scalar or vector. 
If R is a scalar, then it will be treated as a one element vec- 
tor. If ~1+oR is 1, then R will be replicated (along the last 
axis) +/L times before application of the function. If ~14+pR 
is not 1, then it must be equal to +/L. 


Z is an array with the same rank as R (but not scalar), but with 
the last axis expanded according to the format indicated by L, 
so that ~1+eZ is p,L. Positions in Z where there are ones in L 
are filled with sub-arrays of R. Positions in Z where there are 
zeros in L are filled with the fill element (ce>R). 744+pZ is 
~“1+oR. 


Identities: 


LA R «> 741 1[1+L] / R 
L\R «> (714+42xL) / R 


for logical L. 


Examples: 


Z e 0 \ 00 
pZ 

4 . 
Z 

0 
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Z¢+100110O0\2 


pZ 
6 
Z 
200220 
Z+100110N248 
eZ 
6 
Z | 
200480 
Z2+100110N (1 2)(3 4 5)(6 7 8 9) 
oZ | : 
6 
Z 
12 00 00 345 67 8 9 00 
o”z 


2 2 2 3 4 2 


Z+1010011 \ 2 4p'THRUSTHIS' 


eZ 
27 | 
Z 
T H US 
TH IS 


The symbol x may be used instead of \ to indicate the first axis 
Of R rather than the last. 


Example: 
Z +e 101 X 2 3p'HIMHER! 
z 

HIM 


HER 
pZ 
3 3 


Expand with Axis: Z € L \CAJ R 


R may be any non-scalar array. L may be a simple logical scalar 
or vector. A may be a simple scalar or one element vector inte- 
ger axis in R. Z is an array with the same rank as R, but with 
axis A expanded according to the format indicated by L, so that 
(pZ)[,AJ] is p,L. 


Expand with Axis is like the function Expand, except that an 
existing axis in R other than the default may be specified. I£ 
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(pR)[A] is 1, then R will be replicated (along axis A) +/L times 
before application of the function. If (pR)CAJ is not 1, then 
it must be equal to +/L. 


Example: 


101 1[(1] 1 3e'you' 
YOU 3 


YOU 


z «1.041 \C1] 2 3p'HIMHER' 
Z 
HIM 


HER 
pZ 


101 1 1 113] 3 2 4e'ME YOU WE THEYUS THEM' 
E 
OU 


E 
HEY 


S 
HEM 


aca NNU NES 


The symbol \ may be used instead of \. 


Index: Z¢«¢L08R | 


R may be any array. L must be a simple array of integers not 
less than 070, and not greater than OIO+S-1, where S is the 
length of the axis being indexed. If L is a scalar then it is 
treated like a one element vector. The columns of L correspond 
to the axes of R. | 


Conformability requires that: 
71+41,0L +*> per 


z is an array of shape "1+pL, containing elements of R as speci- 
fied by indices L. Z has the same depth as R, unless R isa sim- 
ple scalar, 0="14+pR, and 2sppR. If L is a scalar or vector, 
then Z is a scalar. Each element in L specifies which element 
along the corresponding axis of A is to be selected for Z, simi- 
lar to bracket indexing: ? | 
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(I,J,KX) 0 R +> RCI;J;K] 





for simple scalars I, J, and K. 


If L has more than one axis, then the rows of L index R inde- 
pendently, and the function is called Scatter Index. 


Identity: 

LOR + LL DC s-1+1peL3] R 
for non-scalar L. 
Examples: 


R + 10 20 30 40 





Ze 20R 
pez 

0 
Z 

20 | 
Z «+> R[2]) 
R «€ 3 Sp'VENUSEARTHPLUTO! 
R 

VENUS 

EARTH 

PLUTO 
Z¢+1i139 R 
ppZ 

0 
Z 

N 


Z +> R[1:3] 


If L has rank greater than one, then items in its rows index R 
independently, and Z has shape "1y+pL. 


Examples: 


R + 10 20 30 40 
Z + (3 1p1 2 4) OR 
pZ 


Z 
10 20 40 
2 +> R[17,R[2J,R[4] 


R + 3 3e'HIMHERYOU' 
R 

RIM 

HER 

YOU 
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Z e (2 2p1 32 2) 0 R 


pZ 
2 
Z 
ME | 
z «> R[1;,33,R[2;2] 
R + 10 20 30 40 
Z e (2 3 1p1 322 2 4) IR 
oZ 
2 3 
Z 
10 30 20 
20 20 40 


Z +> 2 39RC(1],RC03],R[2],R02J,R(2J,R[4] 


OJO is an implicit argument of Index. 


Index with Axis: Z «€ L QCA] R 


R may be any array. L must be a simple array of integers not 
less than DIO, and not greater than Or0+S-1, where S is the 
length of the axis being indexed. A may be a simple scalar or 
vector integer selection of axes in R. A may not contain repe- 
titions. Z is an array of shape (“14pL),(~(1ppR)eA)/pR, con- 
taining elements of R as specified by indices L along axes A. Z 
has the same depth as R, unless R is a simple scalar, and O=p,A4. 
Conformability requires that 244+11,pL is p,4, and that 
(P,A)SPPR. 


If the rank of L is less than 2, then Index with Axis is similar 
to Bracket Indexing with elided axes: 


ragcij) R «> RE 
J 0(2] R +> RL 
K 003) R +> RCE 


(I,J) 001 2] R +> RCI;J;] 
(I,K) 001 3] R +> RCI; 3K] 
(J,K) 002 3] R +> R[;J;K] 


for simple scalars I, J, and K. 

Index with Axis is like the function Index, except that L sup- 
plies indexes only for the axis selected by A. Along the unse- 
lected axes, all indices are used, and these axes are placed 
last in the result. 


If L has more than one axis, then the function is called Scatter 
Index with Axis. 
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Examples: 


R + 3 3p'HIMHERYOU'! 


R 
HIM 
HER 
YOU 
Z + 2 DC1J R 
pZ 
3 
Z 
HER | 
Z +> R[23] 
2 + 2 002] R 
oZ 
3 
Z 
IEO 


Z ¢> R[y¿2] 
If L has rank greater than one, then elements in its rows index 
R independently, and scatter indexing is performed along the 
axis selection. The unselected axes are placed last in the 
result. | 
Examples: 


R + 3 3p'HIMHERYOU! 


R 

HIM 

HER 

YOU 
Z + (2 1p1 3) 0017 R 
pZ 

2 3 
Z 

HIM 

YOU : 
2 +> 2 30R[13],A[(3;] 
Z + (2 1p1 3) DC[2]J R 
pZ | 

2 3 
Z 

HRY 

MRU 


Z +> 2 3pR[;1J,R[;3J 


More than one axis may be selected. 
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Example: 


R + 3 2 4p'ME YOU WE THEYUS THEM! 


R 

ME 

YOU 

WE 

THEY 

US 

THEM 
zZ «1 2 001 2) R 
pZ 

4 
Z 

You 
Z +> RC1323] 
ze 142 0C1 3) R 
pZ 

2 
Z 

EO 
Z «> R[1;;2] 
Z «1 2 002 3] R 
pz | 

3 
Z 

EES 
Z «> RC3132] 
Z + (2 291 2 3 2) DC1 2) R 
pZ 

2 4 
Z 

YOU 

THEM 


Z «> 2 4pR[1;,2,3,R[(3;2;J 


The axes specified by A correspond to columns of L, but they 
need not be in ascending order. 


Example: 


Z e (2 202 1 2 3) 002 1] R 


eZ 
2 Y 
Z 
YOU 
THEM 


Oro is an implicit argument of Index with Axis. 
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R may be any array. L may be a (possibly nested) scalar or vec- 
tor of integers not less than OTO, and not greater than 
OTO+S-1 » where S is the length of the axis being indexed. The 
depth of L may be no greater than 2 (each item of L must be sim- 
ple). If L has length more than 1, then R must be nested. Zis 
an item of R as specified by the path indices L. 


If L is an empty vector, then Z is R. 
Example: 


R € 'MEt tyout tALSO! 
R 

ME YOU ALSO 
(10) > R 

ME YOU ALSO 


If L is a scalar or a one element vector, then Pick is equiv- 
alent to Index followed by First, and Z is LOR. 


Example: 
Z € 2 > 'ME' tyou'! tALSO' 
Z 

YOU 


pZ 
3 


If R is simple, then the > has no effect. 
Example: 


2212 3 
2 


If L has more than one item, then the function is applied 
recursively: 


L > R +> (142) > >(>L) ÜR 
L > R > (142) > (142) oR 


If L is a two element vector, then L>A selects an item of an 
item of R. | 


Examples:: 
Re 'ME! YOU! tt ALSO! 


2 -23>_wm 
Z 
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R e *'ME* *YOU* *ALSO! 
Z¢3i1>R 
Z 
A 
R + 2 2p'ME! "AND! (2 4p'YOU THEM!) ‘ALSO! 
Ze (2 1)(1 1) > PR 
Z 
Y 


If L is a three element vector, then L>R selects an item of an 
item of an item of R. 


Examples: 


| Ze 2341 > 'ME' *YOU! *ALSO' 
INDEX ERROR 
| Z +2 3 1>'ME' 'YOU* ‘ALSO! 
A A 


Z + 2341 > 'ME! ('YOU' ‘AND! 'THEM') ‘ALSO! 
Z ; 
T 


Oro is an implicit argument of Pick. 


Replicate: Z2¢L/R | | 


R may be any array. L must be a simple scalar or vector of inte- 
gers. Z is an array with the same rank as R, but with each 
sub-array along the last axis replicated according to the for- 
mat indicated by L. “1+pZ is ~1+9R. | í 


I£ L is a scalar or one element vector, then it will be extended 
to ~141,eR elements before application of the function. If R 
is a scalar, then it will be treated as a one element vector. 
If “14pR is 1, then R will be replicated (along the last axis) 
+/L20 times before application of the function. If ~1+pR is 
not 1, then it must be equal to +/L20. 


Non-negative elements of L correspond to sub-arrays of R along 
its last axis. If LCI] (an element of L) is non-negative, then 
the corresponding sub-array of R will be replicated L[I] times. 
If L(I] (an element of L) is negative, then Z is filled with 
[LCI] £111 elements (ce>R). If L is not extended, then “1+eZ is 
+/1L. | 
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Examples: 


73 / 0p0 


N N 
QQ 
bh 
N 
WwW 


E WwW 


3/1234 


O 
N 


«be 
bh 
N 


0001 / "MERCURY! 


1372/1234 
400 


E O 


E 


1/3 49112 
4 


6 6 6 
10 10 10 1 


2 
4 
| 0 
2 2 2 2 
6 8 
O 12 
The symbol / may be used instead of / to indicate the first axis 
of R rather than the last. 


Example: 


O 2 1 ¢ 3 Sp'THISMANYMORE! 
MANY 
MANY 
MORE 


If L is entirely logical (containing only 0, 1, or both), then 
the function L/ is called Compress instead of Replicate. 


Replicate with Axis: Z e L /[A]R 


R may be any non-scalar array. L may be a simple scalar or vec- 
tor of integers. A may be a simple scalar or one element vector 
integer axis in R. Z is an array with the same rank as R, but 
with axis A replicated accorđing to the format indicated by L. 


Replicate with Axis is like the function Replicate, except that 
an existing axis in R other than the default may be specified. 


If L is a scalar or one element vector, then it will be extended 


to (pR)CA] elements before application of the function. If Z 
is not extended, then (eZ)CA] is +/|L. 
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If (pR)CA] is 1, then R will be replicated (along axis A) +/L20 
times before application of the function. If (pR)[AJ is not 1, 
then it must be equal to +/L20. 


Non-negative elements of L correspond to sub-arrays of R along 
axis A. If LEI] (an element of L) is non-negative, then the 
corresponding sub-array of R will be replicated L[I] times. If 
L{I] (an element of L) is negative, then Z is filled with |L(I] 
fill elements (ce>R). If L is not extended, then (pZ)[A] is 
+/|L. 


Examples: 


2 3 /C1) 1 3p'you' 
YOU 
YOU 
YOU 
YOU 
YOU 


2 3 /C1) 2 3p'HIMHER' 
HIM 
HIM 
HER 
HER 
HER 


-4 2 72 3 /[1] 2 3p'HIMHER' 
HIM 
HIM 


HER 
HER 
HER 


R32 ļ4p'ME YOU WE THEYUS THEM! 
R E | 


YOU 


WE 


THEY 


US 
THEM 
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1 2 /€2] R 


YOU 
YOU 


WE 
THEY © 
THEY 


US 
THEM 
THEM 


If L is entirely logical (containing only 0, 1, or both), then 
the derived function L/[AJ is called Compress with Axis instead 
of Replicate with Axis. 


The symbol / may be used instead of /. 


R may be any array. L may be a simple scalar or vector of inte- 
gers. If L is a scalar, then it will be treated as a one element 
vector. If R is a scalar, then it will be treated as a one ele- 
ment array with shape (pL)p1. After any scalar extensions, p,L 
must be equal to ppR. 


Z is an array with the same rank as R, but with (possibly trun- 
cated or expanded) shape |L. If LCI] (an element of L) is posi- 
tive, then L[I]) sub-arrays are taken from the beginning of the 
Ith axis of R. If L[I] (an element of L) is negative, then 
[ZCI] sub-arrays are taken from the end of the Ith axis of R. 


If more elements are taken than exist on an axis in R, then the 
extra positions in Z are filled with the fill element (ce>R). 


Examples: 


3412345 


123 
“3 412345 
3 45 | 
T4 4 1NEPTUNE! 
TUNE 
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2 73 + 4 4p116 


23 4 
6 7 8 
27173 4 3 2 4p'ME YOU WE THEYUS THEM' 
OU 
HEY 
Zeu 4 (1 2)(3 4 5)(7 8 9 10) 
Z 
12345 78910 00 
eZ 
2 3 4 2 
R + %ME* *YOU! 
R 
ME YOU 
Ze “5 +R 
Z 
ME YOU 
o°Z 


2 2 2 2 3 


Take with Axis: Z e L 4+TAJ R 


R may be any non-scalar array. L may be a simple scalar or vec- 
tor of integers. A may be a simple scalar or vector integer 
selection of axes in R. A may not contain repetitions. Z isan 
array with the same rank as R, but with (possibly truncated) 
shape |Z along axes A. The shape along axes not selected by A 
remains unchanged. | 


Conformability requires that (p,4)s<ppR, and that p,L is p,A. 
If L is a scalar, then it will be treated as a 1-element vector. 


Take with Axis is like the function Take, except that only the 
selected axes are affected. 


Identity: 


L 4 R «> L 4[iıippR]J R 


Examples: 


(10) +[10] 1 2 3 
123 
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2 +11] 4 4pr16 
1234. | 
5678 
76 +12] 3 4p112 
001 234 
00 5 6 7 8 
00 910141 12 
72 +[1] 3 2 4p'ME YOU WE THEYUS THEM' 
WE | | 
THEY 
us 
THEM 


More than one axis may be specified. If so, then p,A must be 
Pl. 


Example: 


WE 
THE 


~2 3 +[1 3] 3 2 4p'ME YOU WE THEYUS THEM! 


Us 
THE 


Multiple axes specified by A need not be in increasing order. 
Example: | | | 
| 3 72 +[3 1] 3 2 4p'ME YOU WE THEYUS THEM! 
WE | | 
TRE 


US 
THE 


2 


R may be any array. L may be any scalar or vector. Z is the 
vector of elements in L which do not occur in R. The length of Z 
is not greater than p,L. | 

Identity: 


L~R +> (“LeR)/L 
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Examples: 


"SHE! ~ 'S! 
HE 
-'MERCURY' ~ 'DUCKS' 
MERRY 
'MERCURY' ~ 'MY* "DUCKS! 
MERCURY 
31415542526 
311 


Note that the intersection of two vectors L and R (including. 
any replications in L) may be obtained by the expression L-L-R. 


Example: 


344155~314155~4252 6 
455 


Note that the last part of the last example is the same as the 
' previous example. 


OCT is an implicit argument of Without. 
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PRIMITIVE DYADIC SELECTOR FUNCTIONS 


The primitive dyadic selector functions are those that gener- 
ate indices or a map of one array, dependent upon another 
array. 


Deal: ZeL? R | | 


R must be a simple scalar or one element vector containing a 
non-negative integer. L must be a Simple scalar or one element 
vector containing a non-negative integer < R. Z is an integer 
vector of length L, obtained by making L random selections 
without replacement from the set if. 


Examples: 


» ick 35 
3 4 5 


OIO and DAL are implicit arguments of Deal. A side effect of 
Deal is to change the value of DAL if Lx0. 


R may be any array. L may be any array. Z is a simple logical 
array of shape pL. An element of Z is 1 if the pattern R begins 
in the corresponding position of L. An element of Z is 0 other- 
wise. | | 


If R has smaller rank than L, then R is treated as having shape 
((Dp1),pR)PR, where D is the difference in ranks. That is, the 
search is performed along the last ppR axes of L. If R has 


larger rank than L, then the pattern R cannot be found in L, and 
all elements of Z will be 0. | 


-Examples: 


'A' € 'B! 
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tat € ‘A! 


'ABABABA! € ‘AB! 
1010100 

‘\ABABABA' € ‘A! 
1010101 


O 

-à 

O 
a Oo 


(2 3) (4 5) 23 45 € 2 3 
00 0 | 


O 
O 
O 
= 


e Y 5p'ABCABA' 


tt 


ABCAB 
 AABCA 

BAABC 
ABAAB 


t BA! 


Oao0Oo 
-a O O O 
oo0oo. 
oooot 
OO0ooOolh 


2 1p'BA? 


Oo~-O 0. 
O O 0O —- 

o-o0ot 
oooh 


OCT is an implicit argument of Find. 


Find with Axis: Z e L [A] R 


R may be any array. L may be any array. A may be a simple 
scalar or vector integer selection of axes in L. A may not con- 
tain repetitions. The number of elements in A must be equal to 
the rank of R. Z is a simple logical array of shape pL. An ele- 
ment of Z is 1 if the pattern R begins in the corresponding 
position of L, with the search performed along axes 4 of L, 


Identity: š 

L <C(-ppR)tippL] R +> L&R 
Find with Axis is like the function Find, except that axes oth- 
er than the last in L may be specified. 
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Examples: 


L + 4 5pt ABCABA! 
L 

ABCAB 

AABCA 

BAABC 

ABAAB 


C1] *BA! 


ooo 
OOO 


£ 
1 
0 
0 
0 


ooo 
bah o.o00.6 


+ 2 2 2p1 2 3 


= N 


~à A) U) =à 
N Y 


L e€[t2] 2 1 


o. 00 
O O Oo = 


L + 2 3 4p'ABCDEFGHIJKLMNOPQRSTUVWXY' 


ABCD 
EFGH 
IJKL 


MNOP 
QRST 
UVWX 


[1 2] 2 2p'FJRV' 


Goo OOO 


O O O O = O 
O O O OOO 


O O O O O O 
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e€[1 3] 2 2p'FGRS' 


O OoOO O O 0O 


L 
0 
0 
0 
0 
0 
0 


OOO O O 0O 
OOO Oo => QO 


L £l2 3] 2 2p'FGJK' 
0000 

0100 

0000 

0000 p 
0000 d 
0000 


Multiple axes specified by A need not be in increasing order. 
Example: 
L e€[(3 2] 2 2p'FJGCK' 

0 0 
1 0 
0 0 
0 
0 
0 


0 
0 
0 
0 
0 
0 


O O O ooo 


0 
0 
0 
T 


OCT is an implicit argument of Find with Axis. 


Find Index: Z+eL 1 R 


R may be any array. L may be any array. Zisan integer matrix 
containing the starting positions (in row major order) where 
pattern R begins in the pattern L. ~“14pZ is ppL. 


Find Index is defined in terms of the functions Find and Index 
Set: | 


Lı R +> (,L € R)? „,CippL] D pL 
for all valid non-scalar L and R. 
Examples: 


p tAt 1 tpt 
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re) 1A! 1 1A! 


1 0 
'ABABABA!? 1 ‘AB! 
4 
3 
5 
1010011011 
1367 
123452345123 
2 
6 
1 (2 3) (45) 23451 2 3 
4 
L ¢ & 5p! ABCABA! 
L 
ABCAB 
AABCA 
BAABC 
ABAAB 
L 1 BA! 
3 1 
4 2 


L 1 2 1p'Bat 


W YN = » 
E —Q0UuN 


OCT and DIO are implicit arguments of Find Index. 


Find Index with Axis: Z € L [A] R 


R may be any array. L may be any array. A may be a simple 

scalar or vector integer selection of axes inL. A may not con- 

tain repetitions. The number of elements in A must be equal to 

the rank of R. Z is an integer matrix containing the starting 

positions (in row major order) where pattern R begins in the 

pareen L, with the search performed along axes A of L. “14pZ 
s pel. 
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Identity: 





L yC(-ppR)tippLJ R +> LAR 


Find Index with Axis is like the function Find Index, except 
that axes other than the last in L may be specified. 


Example: 


L ¢ 4 S5p'ABCABA' 
L 

ABCAB 

AABCA 

BAABC 

ABAAB 


L 3401 2] 2 1p'BA' 


W WN -— a 
b= wun 


#22 2e1 2 3 


bh 
=N 
t~“ t~ 


-—» N 
N w 


L 102] 2 1 


bh 
=~ N 


e“ 2 3 Up* ABCDEFGHIJKLMNOPQRSTUVWXT'*' 


tt 


ABCD 
EFGH 
IJKL 


MNOP 
QRST 
UVWX 


t 


1[1 2] 2 2p'FJRV! 
L 101 3] 2 2p'FGRS' 


112 3] 2 2p'FGJK' 


t~ 


O 122 


Multiple axes specified by A need not be in increasing order. 
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Example: 


| L 1[3 2] 2 2p'FJGK! 
1 2 2 


OCT and DIO are implicit arguments of Find Index with Axis. 


Grade Down (Dyadic): Z e LYR 


R may be any simple non-scalar character array. L may be any 
simple non-empty non-scalar character array, with no dimension 
exceding 256 in length. Z is a simple integer vector of shape 
14+pR, containing the permutation of i14pR that puts the 
sub-arrays along the first axis of R in non-ascending order 
according to the collating sequence L. 


Collation works by searching in L (in row major order) for each 
element of R, and then attaching a significance depending upon 
where it was first found. The significance depends upon both 
the location and the rank of L. 


Any elements of R not found in L have collating significance as 
if they were found immediately past the end of L. Z leaves the 
order among elements of equal collating significance undis- 
turbed. 

Examples: 


"ABCDE' Y *DEAL! 


4213 
R + 5 4p'DEALLEADDEADDEEDDALE! 
R 

DEAL 

LEAD 

DEAD 

DEED 

DALE 
'ABCDE' Y R 

24135 


The last axis of L is the most significant for collating, and 
the first axis of L is the least significant. Thus, in the fol- 
lowing example, differences in spelling have higher signif- 
icance than differences in case: 
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R + 5 U4p'dealDealdeadDeadDEED' 


deal 
Deal 
dead 
Dead 
DEED 


L + 2 Sp'abcdeABCDE! 


abcde 
ABCDE 


e L YR 


ENN 


3 


=- RZ3;] 
DEED 
Deal 
deal 
Dead 
dead 


Another application of a multi-dimensional left argument is 
illustrated by the default collating sequence, shown in 
Figure 4 on page 58. 


Oro is an implicit argument of dyadic Grade Down. | 


Grade Up (Dyadic): ZeLdr | 


R may be any simple non-scalar character array. L may be any 
simple non-empty non-scalar character array, with no dimension 
exceding 256 in length. Z is a simple integer vector of shape 
1+pR, containing the permutation of 114pR that puts the 
sub-arrays along the first axis of R in non-descending order 
according to the collating sequence L. Any elements of R not 
found in L have equal collating significance as if they were 
found past the end of L. 


Collation works by searching in L (in row major order) for each 
element of R, and then attaching a significance depending upon 
where it was first found. The significance depends upon both 
the location and the rank of L. | 


Any elements of R not found in L have collating significance as 
if they were found immediately past the end of L. Z leaves the 
order among elements of equal collating significance undis- 
turbed. | 
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Example: 


‘ABCDE' A 'DEAL' 
3 1 4 


R + 5 4p'DEALLEADDEADDEEDDALE' 
R | 


DEAL 
LEAD 
DEAD 
DEED 
DALE 


'ABCDE!* Å R 
53 1 4 2 


The last axis of L is the most significant for collating, and 
the first axis of L is the least significant. Thus, in the fol- 
lowing example, differences in spelling have higher signif- 
icance than differences in case: | 


R + 5 Up'dealDealdeadDeadDEED! 
R 


deal 
Deal 
dead 
Dead 
DEED 


L ¢ 2 SptabcdeABCDE! 
L | 


abcde 
ABCDE 


ZeLdr 
: Z 
3412 5 
R[Z3] 
dead 
Dead 
deal 


Deal 
DEED 


Another application of a multi-dimensional left argument is 
illustrated by the default collating sequence, shown in 
Figure 4 on page 58. | | 


OJO is an implicit argument of dyadic Grade Up. 
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Index Of: ZeL1iR | | 


R may be any array. L may be any vector. Z is an integer array 
with the same shape as R, describing where each element in R can 
first be found in L. If an element of R can not be found in L, 
then the corresponding element in Z will be OTJO+>pL. 


Example: 


1357134845 
25 3 


l 


OCT and OIO are implicit arguments of Index Of. 


Member: ZeL e€ R ] | | | 


R may be any array. L may be any array. Z is a simple logical 
array of shape pL. An element of Z is 1 if the corresponding 
element of L can be found anywhere in R. 





Example: 


1357€345 
0110 


OCT is an implicit argument of Member. 
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PRIMITIVE DYADIC MIXED FUNCTIONS 


The primitive dyadic mixed numeric functions are those that are 
not pervasive, but apply to arrays L and R, and produce an array 
result Z, dependent upon the content of L and R. 


Decode: Z eL 1 R | 


A may be a simple real or complex numeric array. ZL may be a sim- 
ple real or complex numeric array. Z isa Simple real or com- 
plex numeric array of shape ("1+pL) »1l+pR, Scalar arguments 
will be treated as one element vectors. If 14oR is 1, then the 
first axis of R will be extended to length ~14tpL before appli- 
cation of the function. If “14pL is 1, then the last axis of L 
will be extended to length 14+pR before application of the func- 
tion. Conformability requires that “14+pL must be 1+pR. Decode 
is defined in terms of the Inner Product +.x: 


-LAR «> ((pL)4O1,x\O1+(CppLIL) +.x R 


for all valid non-scalar L and ARL. 


Examples: 
221010 
10 | 
222211010 
10 
2 2221031010 
2J8 


If Lisa scalar, then Lik is the value of the polynomial evalu- 
ated at L, with coefficients R (arranged in descending order of 
powers of L). 


Encode: Ze LTR 


R may be a simple real or complex numeric array. L may be a sim- 
ple real or complex numeric array. Z isa simple real or com- 
plex numeric array with shape (pL),pR. 


Encode is defined in terms of the function Residue. For a vec- 


tor L and a scalar R, Z may be determined by the following func- 
tion: | 
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Y Z +L ENCODE RyI 
(13 Z+0xL 
[2] I+pL 
C3] GO:>(I=0)/0 
C4) Z(IJ+LCII\R 
[5] >(L[I13=0)/0 
[6] Re(R-2[13)+L[11 
[73 Ier-1 
[8] G0 
y 


For arguments of other rank, 


Z e >[1J (c[1] L) °.(ENCODE”) R 


Examples: 


222271 10 


101 0 
202 7T 13 
0 6 1 
2227713 
O 41 1 


2222T 238 
071 01 0 


The function Encode is the inverse of the function Decode for 
some vector arguments: 


LiLtR es (x/L)|R 


OCT is an implicit argument of Encode. 


Matrix Divide: ZeLBR O | 


L may be a simple real or complex scalar, vector, or matrix. R 
may be a simple real or complex scalar, vector, or matrix, sub- 
ject to conformability with Z, as described below. 2 is a sim- 
ple real or complex vector or matrix of shape (1+pR),1+pL 
minimizing the quantity +/,(L-R+.xZ)*2. The system variable 
Implicit Result (DIR) is set to the algebraic rank of R. 


The definition assumes that L and R are matrices. If either L 
or R is a vector, then it is treated as a 1 column matrix. If 
either L or R is a scalar, then it is treated as a matrix with 
shape 1 1. After these extensions, L and R must have the same 
non-zero number of rows. If R has more columns than rows, then 
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the system variable Matrix Divide Tolerance (OMD) must be 
non-zero. | | | 


Identity: 
IBR «+> BR 


“te matrix R, where I is an identity matrix of (square) shape 
2p14+pR, 


If R is a non-singular square matrix, and L isa vector, then Z 
is the solution of the system of linear equations expressed 
conventionally as Rz=1. That is, R+.xZ is L. 

Examples: 


148 2 2p1 00 2 


1 2 

OIR 

18482 2p071 0 0 2 
OJ~1 2 


If R is a non-singular square matrix, and L is a matrix, then Z 
is the solution of the system of linear equations for each col- 
umn of L. That is, R+.xZ is L. 


Examples; 


(2 2e1 2 4 8) B 2 291 00 2 


12 
2 4 
(2 2p1 2 4 8) B 2 2p071 0 0 2 
071 0J72 
2 4 


If the system variable Matrix Divide Tolerance (DMD) is 0, then 
LAR is executed only if: 


1. Land R have the same number of rows 

2. the columns of R are linearly independent 

3. R does not have more columns than rows 

If R is a vector, F is a numeric function, and L¢F R, then 
LBR>o,*x0,1D is the vector of the coefficients of the polynomial 
of degree D which best fits (in the least squares sense) the 
function F at points R. For example, to compute and evaluate 


successively closer polynomial approximations to the Gamma 
function: 
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y e141 1.2 1.41.6 1.8 2 
Le! V 
L | | | 
14 1.101802491 1.242169345 1.429624559 1.676490788 2 
1.6 10 L8Vo.,*0,12 
1.434010955 
1.6 16 LBVe.*0,13 
1.428958487 
1.6 19 LBV°. +0,14 
1.429580485 
1.6 16 L8Vo,*0,15 
1.429624559 


where XıP evaluates a polynomial P at point X (see the function 
Decode). 


Geometrically, if R is a matrix, and L is a vector, then R+ .xLBR 
is a point in the space spanned by the column vectors of R which 
is closest to the point L. In other words, R+.xLHR is the 
projection of L on the space spanned by the columns of R. 


If R is singular, or has more columns than rows, and if the sys- 
tem variable Matrix Divide Tolerance (OMD) is non-zero, then 
OMD is taken to be a fuzz on the algebraic rank determination of 
R. The behavior of the system variables [MD and DIR in such a 
case follows from the identity: 


L BR e> (BR)+.xL 
(see Matrix Inverse on page 65) 
Example: | 


R + 3 39100100002 
R 


O — = 
O O O 
NO O 


12848R 
DOMAIN ERROR 

1 2 48R 

A A 


OIR 


OIR is an implicit result of Matrix Divide. (MD is an implicit 
argument of Matrix Divide. DMD is not related to [|cT. 


The Matrix Divide and Matrix Inverse functions use the "Lawson 
and Hansen Algorithm", which is an extension of the "Golub and 
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Businger Algorithm", to handle undetermined cases. If DMD is 
0, then the test for singularity uses a fixed implicit fuzz of 
1E°-15. For statistical problems with experimental data, the 
value of DMD should reflect the relative accuracy of the data. 
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PRIMITIVE DYADIC TRANSFORMATION FUNCTIONS 


The primitive dyadic transformation functions are those that 
are not pervasive, but apply to arbitrary arrays L and R, and 
produce an array result Z with data type independent of that of 
their arguments. 


R may be any array. L may be any array. Z is a simple logical 
scalar (either 0 or 1). If L is identical to R, then Z is 1. If 
L is not identical to R, then Z is 0. | 


Non-empty arrays are identical if they have the same structure 
and the same values in all corresponding locations. Empty 
arrays are identical if they have the same shape and the same 
prototype (disclosed nested structure). 


Examples: 

2 = 2 
4 

2 = 3 
0 

2 = ,2 
0 

tr = 10 
0 

 (Opc0 0) = Oped 0 O 

0 

'ME' = 'ME ! 
0 | 

'ME! = ct ME! 
0 

'ME* tyout = *ME* *YOU! 
1 

23 4 = 141 2 3 
1 
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l 2 3 4 = 2 3 4,000000000000001 


OCT is an implicit argument of Match. 


Format (Dyadic): Z¢LetR 


R may be an array of any rank. R may not have any items which 
are complex scalars. If R is non-simple, then the ranks of its 
items must all be less than two. L may be a simple scalar or 
vector. Z is a character array displaying the array R accord- 
ing to the specification L. Z has rank 1fppR, and “"1y+pZ is 
“"4+pR. OFC (described on page 210) is an implicit argument of 
dyadic Format. 


Conformability requires that if L is numeric and has more than 
two elements, then p,L£ must be 2x"1+pR. If L is numeric and has 
two elements, then it will be extended to 2x71+pR elements. 
The specifications L may have one of three forms: 
1. two numbers for each column of R 
2. a single integer (the same as (O,L)WR) 
3. acharacter vector (Picture Format) 
If L has two numbers for each column of R, and the first is pos- 
itive, then it specifies the total column width. In such a 
case, the second number: 
If positive or zero, specifies the number of digits dis- 
played after the decimal point for numeric scalar items in 
the corresponding column of R, 
Examples: 


724% 01.1 21.12 321.123 
.00 1.10 21.12 321.12 


= 40w 014.14 21.12 321.123 
0 1 21 321 


If negative, specifies the number of digits displayed in 
the mantissa of a floating point representation for numer- 
ic scalar items in the corresponding column of R. 
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Example: 


773 + 1 21 321 4321 
1.0050 2.10E£1 3.21E£2 4.32E3 


The digits specification is ignored for non-numeric or 
non-scalar items in R. If they fit, then they will be 
right-adjusted in their columns. If they don't fit, and OFC(6] 
is not '0', then the corresponding fields of Z will be filled 
with OFCC4]). | 


Examples: 


30515 2 4 3 3ptONEt 'TWO' *THREE* 1 20 3 4 5 0.7 
ONE TWO THREE 
1 20.0 3.00 
4 5,0 0,70 


OFC[4J « 1?! 


305132 +4 3 3p'ONE' 'TWO' 'THREE' 1 20 3 4 5 0.7 
ONE TWO ?2? | 
1 20,0 ??? 
4 5,0 .70 


If the first number of a pair in L is zero, then it specifies a 


floating column width determined by the contents in the corre- 
sponding column of R. | | 


Example: 


02w041.1 21.12 321.123 
¿00 1.10 21.12 321.12 


If L isa single integer, then this is the same as (O,L)vR. 
Example: 


2 041.1 21.12 321.123 
.00 1.10 21.12 321.12 


If L is a character vector, then it specifies ~1+pZ and the 
resulting pattern of Z. R must be numeric, and the individual 
characters in L control the display of columns in R. This is 
called Picture Format. OFC is an implicit argument of Picture 
Format. | 


In Picture Format, digits (numeric characters) in the pattern L 
are control characters, and show where digits may appear in the 
result Z. Non-digits (non-numeric characters) in the pattern L 
are called decorators. Decorators may be either embedded or 
conventional. 
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An embedded decorator may be either fixed in position, or it 
may be controlled. A controlled decorator may print or not, or 
it may float next to the number in the result, depending upon 
which control digits are used, and what number is being format- 
ted. | 


The dot and the comma are conventional decorators, which indi- 
cate decimal points and commas in the result by known con- 
ventions, | 


Control characters are: 


O pad zeros to this position 

float decorator if negative 

float decorator if non-negative 

float decorator 

do not float nearest decorator 

normal digit | 

field ends at right of non-control character 
exponential symbol at right of non-control character 
fill with OFC(3J when otherwise blank 

pad zeros to this position if non-zero 
decimal point | 
controlled comma 


ses = LDOJARAAEUN A 


all other characters are decorators 


A field in a pattern is a sequence of characters containing at 
least one digit, and bounded by either blanks or special field 
boundary markers (like the digit 6). If a sequence of charac- 
ters does not contain a digit, then it is considered a deco- 
ration. 


The normal digit to use in the pattern is 5. A field of only 5's 
will suppress leading and trailing zeros. If there is only one 
field, then it is used for every column of numbers in R: 


Z € * §55.55! ¥ 1010.1 100 
Z 
1 10.1 100 
eZ 
28 


If there is more than one field, then there must be one for 
every column of numbers in R: 


Zet! 55,5 5,55! ¥ 1.12 2.12 3.12 
Z 
1 2.1 3.12 


pZ 
11 
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A 0 can be used in the field to pad zeros to a particular point: 


Z * 005 5.50 5.5501 v 1.12 2.12 3.12 
: | | 
001 2.12 3.120 
eZ 
15 


Embedded decorators may be included: 
> e HERE 5 5.5 ¿THERE: 5.55! ¥ 1.12 2. 12 3.12 


dia 4 2.1 ¿THERE: 3.12 
oZ 
24 | 


A single field may have embedded decorators: 


Z € '05/05/05' ¥ 70481 

07/04/81 

| pZ 
8 

A 1 can be used in the field to float a decorator in against a 
number for negative values only: | 7 


Ze t! -551.50' ¥ 714 0 10 7100 
Z . 
-1.00 .00 10.00 -100.00 
pZ 
32 


A floating decorator may be on both sides of a number: 


Z + *(551.50)' vw “1 0 10 7100 
Z | 
(1,00) .00 10.00 (100.00) 
pZ | | 
32 


A 2 can be used in the field to float a decorator in against a 
number for non-negative values only: o aa 


Z e t 4552.50! ¥ 74 0 10 7100 
2 
1.00 +.00 +10.00 100.00 


pZ 
32 
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A 3 can be used in the field to float a decorator in against a 
number for all values: 


Z € ' $553,50t ¥ 1 0 10 100 
Z 
$1.00 $.00 $10.00 $100.00 
oZ 
32 


A 4 can be used with a 1, 2,-or 3 in the field to mix 
non-floating and floating dẹcorators. It blocks the floating 
effect of a1, 2, or a 3 on its side of the decimal point. 


Z € t -551,45xt ¥ 74 010.1 7100 
Z 
-1 O * 10.1 x* -100 * 
oZ 
36 


A 6 can be used to end a field which is otherwise continued. It 
indicates that not only a blank, but any non-control character 
ends a field. 


Z + 106/06/06! v 7 4 81 


Z 
07/04/81 

pZ 
8 


A 7 can be used to indicate a double field for scaled 
formatting. The next decorator to the right of a 7 replaces the 
E in scaled form: 


Z € 11,.70x00t ¥ 12345 
Z 

1.23404 
pZ 

7 


An 8 can be used in the field to have otherwise blank positions 
in the result filled with OFC[3]: 


Z «€ * 8555,50! ¥ 1010 100 
Z 

**x*1.,00 *xxxx, 00 *x10.00 *100,00 
pl 

32 
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A 9 can be used in the field to pad zeros to a particular point 
only for non-zero numbers: 


Z e 1 555,591 ¥ 1 0 100 
Z 
1.00 100.00 


pZ 
21 


If OFCCAJ is not a 0, then it is used to fill a field that would 
otherwise be an error because the number is too large. 


| Z e + 555,59! ¥ 1 1000 100 
DOMAIN ERROR 


ze! 555,.59!w1 1000 100 
A A | 


OFCC4] e 17! 

Z + 1 555,591 ¥ 1 1000 100 

Z | 
1.00 ?????? 100.00 


pz 
21 


For more examples, refer to the Format Control system variable 
(OFC), on page 210. 
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PRIMITIVE MISCELLANEOUS FUNCTIONS 


Each of the primitive miscellaneous functions has one or more 
of the following properties: | e 


1. It produces no explicit result. 
2. It takes no explicit argument. 


3. It does not follow the syntax of a monadic or dyadic func- 
tion (F Ror L F R). 


Primitive miscellaneous functions are not in the function 
domain of operators. | 


This is a special case of the branch statement which means to 
clear the most recently suspended statement and all its pendent 
statements from the state indicator. The abort expression has 


no explicit result, and it takes no argument. The abort 
expression is not in the function domain of operators. 


If > is executed in a defined function or operator, then it (and 
any pendent function or operator) is aborted. 


Example: 


VF 
C1] 1 
[2] G 
[3] 3 

y 


VG 
C1] 10 
[2] > 
[3] 30 
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Bracket Indexing: Z¢RECE LJ | 


If there are no semicolons between the brackets, then R may be 
any vector. L may be a (possibly nested) array of integers not 
less than DIO. Selected element(s) in R with indices L are ref- 
erenced, forming an array Z. Bracket Indexing does not follow 
the syntax of a dyadic function. Bracket Indexing is not in the 
function domain of operators. | 


Example: 


R+12345 
R[2] 


If R is a vector, then R[IJ has the same shape as I, which may 
have any rank. 


Example: 


Redt2345 

R[2 3p1 2 3 2 3 4] 
12 3 
23 4 
If Lis nested, then Z is nested with the same structure. 
Example: 


Re12345. 
Z € R[<2 3p1 2 3 2 3 4j 


Z 
123 
234 
paz 
0 
paz 
2 3 


If R is a matrix, then two arrays of indices may be given, sepa- 
rated by a semicolon (;). They reference the rows and the col- 
umns, respectively. 7 
Example: 

R + 3 3p1 23456789 

RC13;3] 


If R is a matrix, then R[I;J7] has the shape (pI) ,pd. 
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Example: 


Index arrays may be elided to indicate all indices for the cor- 
responding axis. 


Examples: 
R«3 3912345678 9 


R13] 


R(2 13) 


= E 


N OT 
WwW OV 


RE31] 


R e 2 3p'YOUMAY' 


- R[1 5] 
YOU 


RO31] 
YM 


Arrays of any non-zero rank D may be referenced by Bracket 


Indexing if there are D-1 semicolons between the brackets, and 
D optional arrays of indices. 
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Example: 


R + 3 2 4p'ME YOU WE THEYUS THEM! 
R 

ME 

YOU 


WE 
THEY 


US 
THEM 


RC1323] 
you 


RO13;233) 
U 


OJO is an implicit argument of Bracket Indexing. 
Example: 


oro + 0 
R123495 
RCO 2] 


Branch: > R 


R may be a scalar or vector, which, if not empty, has an simple 
integer scalar as its first item. The branch expression has no 
explicit result. The branch expression is not in the function 
domain of operators, It is used to modify the normal sequen- 
tial flow of control in a defined function or operator, or to 
resume execution after a statement has been interrupted. 


There are four distinct uses for the branch expression, depend- 
ing upon whether or not the argument is empty, and whether or 
not the statement is entered in immediate execution: They are 
shown in Figure 7 on page 149, | 
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Entered in 
Immediate Execution 


Restart at the 
beginning of a line 


Entered in a Defined 
Function or Operator 


Continue with 
a specific line 

















Resume in the 
middle of a line 









Continue with 
the next line 








Figure 7. Uses of the Branch Expression 


If R is non-empty, and the branch is executed in a defined func- 
tion or operator, then the first element of R specifies the 
number of the line to be executed next, if it exists. Other 


elements of R after the first are ignored. 


Example: 
v F 
[1] 1 
[2] G , 
C3] 3 
y 
VG 
C1} 10 
[2] 74 
[3] 30 
C4) 40 
Y 
F 
1 
10 
40 
3 


If the line number doesn't exist, then execution of the func- 
tion or operator is terminated. (Line 0 does not exist for 
branching purposes. ) | 


Example: 


v F 
[1] 1 
[2] G 
[3] 3 
y 
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C1] 10 
[2] 30 
C3] 30 
C4) 40 
y 

F 
1 
10 
3 


The argument R of a Branch statement may (in fact, should) be a 
label. A label is a name which is followed by a colon (:) at 
the beginning of a statement. It is effectively a local con- 
stant which is given a value when execution of the defined 
function or operator is begun. A label does not affect the exe- 
cution of the statement on which it appears. (See also "System 
Labels" on page 227.) 


Example: 


VG 
C1] 10 
[2] FOUR 
C3] 30 
C4] FOUR: 40 
V 


10 

40 

In this example, FOUR is a label. 

his R is empty, and the branch is executed in a defined 


function 
or operator, then no branch takes place, and execution contin- 
de with the next line in sequence. 


Example: 
VG 
C1} 10 
[2] 710 
C3] 30 
C4) 40 
y 
G 
10 
30 
40 
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In this manner, the branch statement may be conditional. 


Example: 
VG 
C1] 10 
[2] >MAYBE/FOUR 
[3] 30 
C4] FOUR: 40 
y 
MAYBE +0 
G 
10 
30 
40 
MAYBE +1 
| G 
10 
40 


If the branch statement is CORA EE ONAL; an iterative procedure 
may be performed. 


Example: 


V ZeFACTORIAL R 
C1] Z+arfi 
[2] LOOP: R+eR-1 
[3] >(Rs1)/0 
C4] ZeZxR 
[5] >»LOOP 
y 


Similarly, the branch statement may have multiple paths. 
Example: 

VG 
C1} 10 


[2] >(THREE,FIVE,SEVEN)[WHICH] 
[3] THREE: 30 


[4] 70 
(5) FIVE: 50 
[63] >20 


[7] SEVEN: 70 
v 


WHICH+1 
G 

10 

30 
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WRICH¢2 


G 

10 

50 
WHICH+3 
G 

10 

70 


If R is non-empty, and if the branch is executed in immediate 
execution, then the branch is taken as a request to restart 
execution of the last suspended defined function or operator at 
the specified line, if the line exists. If it doesn't exist, 
then execution of the function or operator is terminated. 


This action only restarts execution of a defined function or 
operator. If there are suspended lines of immediate execution 
in the state indicator above the function or operator, then 
they are lost. If there is no suspended function or operator, 
then the branch expression does nothing. 


Examples: 


VG 

C1} 10 

[2] +0 

[3] 30 
y 


G 
10 
DOMAIN ERROR 
GC2J +0 
AA 
3 
30 


[1] 1 
[2] G 
[3] 3 


C1] 10 
[2] +0 
[33 30 
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4 


10 
DOMAIN ERROR 
-G[2] +0 
AA 
ISI 
G[2] 
F[2] 
j | 
30 
3 


If R is empty, and if the branch is executed in immediate exe- 

ution, then the branch is taken as a request to resume exe- 
cution at the current position in the most recently suspended 
line. The most recently suspended line may be in a defined 
function or operator, or it may have been entered in previous 
immediate execution. 


Resuming a line may cause re-evaluation of an expression which 
gave an error. If the error was not a SYNTAX ERROR or a VALUE 
ERROR, then the system variable OR and perhaps OZ will be 
available for inspection or re-assignment. In this case the 
new values of system variables QZ and OR are used in the 
re-evaluation if they have been provided. For more details, 
refer to the description of the system variable Right Argument 
(OR) on page 220. | 


Example: 
VG 
C1J 10 
[2] +0 
[3] 30 
a 
G 
10 
DOMAIN ERROR 
G[27] +0 
AA 
OR 
0 
- OR*e2 
+10 
0.5 
30 
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Example: 


2xV+1 
VALUE ERROR 
2xV+1 





Example: 
OJO + 2.71828 


2x14 

OIO ERROR 
2x14 

A 


DIO + 1 


310 
246 8 


Refer also to the system variable Line Counter (OLC). The 

statement »*0LC is a convenient way to restart anew (rather than © 
resume from the current position) execution of a suspended line 

of a defined function or operator. 
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PRIMITIV p) TORS 


The APL2 primitive operators take one or two operands and 
produce a derived function. Some operators take one operand 
(which must be a function). They are called monadic operators. 
Some operators take two operands. They are called dyadic oper- 
ators. The second operand of a dyadic operator is not 
optional. 


The left operand of an operator may be a primitive function, a 
system function, a defined function, or a derived function. 
The right operand of an operator may be an array, a primitive 
function, a system function, a defined function, or a derived 
function. The resulting derived function is ambi-valent, and 
may have both monadic and dyadic definitions. | : 


Class Producing 
Monadic 


Monadic Each 

Reduce 

Reduce 

Scan 

Scan 

Reduce w Axis 
' Scan w Axis 


Bracket Axis 
Dyadic Inner Product 
Outer Product 
Notes: 


F and G are function operands of an operator. 
A is a simple scalar or vector axis specification. 
L and R are array arguments of a derived function. 


























Figure 8. Primitive Operators 
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PRIMITIVE MONADIC OPERATORS 


The primitive monadic operators take a left operand (which must 


be a function) and produce a monadic or dyadic derived . 


function. The monadic operators are presented by defining the 
derived functions they produce. | 


Each (producing Monadic): Z + F” R 


F may be any monadic function. R may be any array whose items 
are appropriate to the function F. Z is an array of shape pR 
formed by applying F to each item of R. 


If R is not empty, then (,2)[I] is cF >(,R)(I] for every simple 
scalar I for which (,R)[IJ] is defined. 


If R is empty and F is primitive, then the argument presented to 
F is e>R, which is the same as >R. If R is empty and F is 
defined, then F must contain the system label OFJ (see "System 
Labels" on page 227). 


Examples: 


p” 'ME' 'you' ‘WE? 
2 3 2 


1“ 1234 
1 12 123 1234 
Z e +” 0p0 
pZ 
0 
paz 
1 


The monadic derived function F” is a scalar function, but it is 
not a pervasive one unless F is pervasive. If applied to a per- 
vasive function, the Each operator has no effect. 
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© | Each (producing Dyadic): Ze LF" R 


F may be any dyadic function. L and R must be identically 
shaped arrays (after possible extensions) whose corresponding 
items are appropriate to the function F. Z is an array of shape 
pL (or pR) formed by applying F between each corresponding pair 
of items in L and R. 





The following extensions will be performed if applicable 
before application of the derived function: 


1. I£ Lis a scalar or a 1 element vector, then it is reshaped 
to shape of. | 


2. If Ris a scalar or a 1 element vector, then it is reshaped 
to shape pL.. 


If L and R are not empty after any scalar extensions, then 
(,Z)[I] is <(>(,L)C011) F >(,R)CI] for every simple scalar I 
for which (,Z)(I] and (,R)[I]) are defined. 


If either L or R is empty and F is primitive, then the arguments 
presented to F are e>L and e>R. If either L or R is empty and F 
is defined, then F must contain the system label DFL (see "Sys- 


o tem Labels" on page 227). 
Examples: 


46 1 p` 'ME* *YOU! 'WE't 
MEME YOUYOU W 


6 p” 'ME* *YOU! !WE! 
MEMEME YOUYOU WEWEWE 


(1p6) p” 'ME! tYOU! 'WE! 
MEMEME YOUYOU WEWEWE 


| 2 4 p“ tX! 
XX XXXX 
Z «€ 44” 0pc0 00 
pZ 
0 
paz 
3 


The dyadic derived function F“ is a scalar function, but not 
necessarily a pervasive one. If applied to a pervasive func- 
tion, the Each operator has no effect. 
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N-Wise Reduce: Ze LF/R 


F may be any dyadic function which produces a result. R must be 
an array whose sub-arrays along the last axis are appropriate 
to the derived function F/. L must be a Simple scalar or one 
element vector integer such that (|L)s"14pR. If F is a scalar 
(or pervasive) function, then Z is an array with the same rank 
as R, but with shape (“"1+pR),1+("14pR)-I|L. 


Z is formed by applying the derived function F/ to contiguous 
sub-arrays of width L along the last axis of R. If L is nega- 
tive, the specified sub-arrays of R will be reversed along the 
last axis before the applications of the derived function F/. 


If L is O then the result contains identity arrays for F with 
respect to R. If L is 0 and F is defined, then F must contain 
the system label DID (see "System Labels" on page 227). IfLis 
0, then F may not be derived except when directly produced by a 
defined operator containing the system label DID. 
Identity if F is a scalar or pervasive function: 

=14pZ «+> 1+("14pR)-|L 
for all valid Z and R, 


Examples: 


5 +/ 14 9 16 25 


55 

4 +/ 1 4916 25 
30 54 

3 +/ 14916 25 
14 29 50 

2 +/ 1491625 
5 13 25 41 

1 +/ 149 16 25 
14 9 16 25 

O +/1 49 16 25 
000000 | 

2 -/ 1 4 9 16 25 
3579 

2 =/ tMERRY! 
0010 
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3 ,/ 'ABCDEF' 
ABCBCDCDEDEF 


3,/12384567 
123234345456567 


3 ,"/ 'ABCDEF' 
ABC BCD CDE DEF 


3 ,"/14234567 
123 234 345 45 6 5 67 


“3 ,/ 12 
5 


45 67 
321 432 3 


654 765 


The symbol / may be used instead of / to indicate the first axis 
of R rather than the last. 


Example: 


2 +7 3 4pr12 
6 8 10 12 
14 16 18 20 


| N-Wise Reduce with Axis: Z e L F/CA] R | 


F may be any dyadic function which produces a result. R must be 
an array whose sub-arrays along axis A are appropriate to the 
derived function F/. L must be a simple scalar or one element 
vector integer such that (|Z)s(pR)CA]. A may be a simple 
scalar or a one element vector containing an integer axis in R. 
If F is a scalar (or pervasive) function, then Z is an array 
with the same rank as R, but with shape 1+(7149R)-|L along axis 
A. | 


Z is formed by applying the derived function F/[A] to contig- 
uous sub-arrays of width L along axis of A of R. If L is nega- 
tive, the specified sub-arrays of R will be reversed along the 
last axis before the applications of the derived function F/. 


If L is O then the result contains identity arrays for F with 
respect to R. If Lis 0 and F is defined, then F must contain 
the system label OID (see «System Labels" on page 227). If Lis 
0, then F may not be derived except when directly produced by a 
defined operator containing the system label OJD. 


This operator is like N-Wise Reduce, except that an existing 
axis in R other than the default may be specified. 
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Example: 


2 +/[2] 1 3 4p112 
6 8 10 12 
14 16 18 20 


The symbol / may be used instead of /. 


Reduce: Z & F/R 


F may be any dyadic function which produces a result. R must be 
an array whose sub-arrays along the last axis are appropriate 
to the function F. Z is an array formed by applying F between 
sub-arrays along the last axis of R. The arguments presented 
to F, if any, have rank one less than the rank of R. If F isa 
scalar (or pervasive) function, then Z has shape "1+pR. 


If R is a scalar, then Z is R. If 1="14pR, then Z is ("1+pR)oR. 
If 1<71+pR, then the definition is recursive: 


F/ R +> (1 DCpoR] R) F F/1+CppRJR. 


If O="1toR, then the empty array R is presented to the monadic 
identity function. The identity function is the first of: 


1. The right identity function RI for F, such that; 


A +> AF RI ((pA),0)pA 


2. The left identity function LI for F, such that; 


A +> (LI ((pA),0)p4) FA 


If 0O="14pR, and neither a right nor a left identity function 
exists for F, then F/R is a DOMAIN ERROR. 


Figure 9 on page 161 shows the identity elements for the primi- 
tive dyadic pervasive functions in the reduction of empty 
numeric arrays. If F is pervasive, and I is its identity ele- 
ment, then its identity function is (“1+pR)pI+c>R. This iden- 
tity holds only for uniform arrays. 


Figure 10 on page 162 shows the identity functions for the 
primitive dyadic non-pervasive functions in the reduction of 
empty arrays. If ~“1+oR is 0 and F is defined, then F must con- 
tain the system label DID (see "System Labels" on page 227). If 
~14*pR is O, then F may not be derived except when directly | 
_ produced by a defined operator containing the system label OID. 
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Function 


Add 
Subtract 
Multiply 
Divide 
Residue 
Minimum 
Maximum 
Power 
Logarithm 
Circular 
Binomial 
And 

Or 

Less | 
Not Greater 
Equal 

Not Less 
Greater 
Not Equal 
Nand 

Nor 


Identity 
Restriction 






























LAMVMNIMA<>*00% 715 * Xx IF 
eb ob oth bh oh bob ob 








Note: 
A is the array satisfying the identity. 
M is 7.2370055773322621E75. 


Figure 9. Identity Elements for Dyadic Pervasive 


Functions 
Examples: 
+/ 5 
5 
+/ 35 
15 
| +/ 2p5 
10 
+/ 1p5 
10 
+/ 0p5 
0 
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Function F Identity 
Function 


(+> F/R) 


Identity 
Restriction 




























Reshape p S 

Catenate $ ((714+4S),O0)pR R 
Rotate > (~1+5)p0 

Rotate e (14+5)p0 

Transpose & 10f “1+ppR 



















































a Bl BE ai a oe ol oe ol od ol ol a 
















Pick > 10 | 

Drop + (Of ~1+ppR)p0 

Take 4 | S 

Replicate / (~14S) 01 1<ppA 
Replicate f (145)p1 1<ppa 
Expand \ (~14S)p1 1<ppA 
Expand X (145)p1 1<ppA 
Index 0 0s 
Without ~ OpR 1=ppA 
























iM {note} 
Set 


Af, AcM 
A/ AEO 1 


Index of 
Member 
Grade Up 
Grade Down 
Deal 

Find 

Find Index 













A/,AeO 1 










KA uba - 












M 






Encode 
Decode 
Mat. Divide 


far 4 







Vo .=Veilt+orR 








Format 
Match 










Notes; 
R is the empty array being reduced (pR +> S,0). 
A is the array satisfying the identity. 

M is 7.2370055773322621E75. 
1 M is a DOMAIN ERROR. 








Figure 10. Identity Functions for Primitive Dyadic 
Non-Pervasive Functions 


R +3 4912345678910 11 12 


R 
1 2 3 4 
5 6 7 8 
9 10 11 12 
+/ R 
10 26 42 
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+/ 4 3p5 





15 15 15 15 
+f 4 205 
10 10 10 10 
+/ 4 105 
5555 
+/ 4 0p5 
000 0 


+/ 3p(1 2 3 4)(10 20 30 40)(100 200 300 400) 
111 222 333 444 


+/ 2e(1 2 3 4)(10 20 30 40)(100 200 300 400) 


11 22 33 44 
+) 1p(1 2 3 4)(10 20 30 40)(100 200 300 400) 
1234 | 
+/ 00(1 2 3 4)(10 20 30 40)(100 200 300 400) 
0000 
+s” (1 2 3 4)(10 20 30 40)(100 200 300 400) 
10 100 1000 
Z + p/ 2p5 
© pz 
5 | 
z 
55555 
Z e p/ 1p5 
ppZ 
0 
Z 
5 
Z + p/ 0p5 
pZ 
0 
Z 
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Z + p/ 2 2p5 
eZ 


Ui 
un 





wi at Y On Ul 
Add OF UT UN 
O YN O un Un 
WOU UT Uy 
WOO on on 


a 


e p/ 2 195 


Z + p/ 2 0p5 
eZ 


Z 


p/ 2 202 4 3 5 


,/ 2 39123456 
142536 





» / 239123456 
123 456 


=/ 'ME! *ME! 
=/ 'ME* *YOU" 
0 


The symbol / may be used instead of / to indicate the first axis 
of R rather than the last. | | 


Example: 
R + 3 4012345678910 11 12 
: R 
12 3 4 


5 6 7 8 
9 10 11 12 


+2 R 
15 18 21 24 
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| Reduce with Axis: Z € F/CAJ R 


F may be any dyadic function which produces a result. A may be 
a simple scalar or a one element vector containing an integer 
axis in R. R must be an array whose sub-arrays along axis A are 
appropriate to the function F. Z is an array formed by applying 
F between sub-arrays along axis A of R. The arguments pre- 
sented to F, if any, have rank one less than the rank of R. If F 
is a scalar (or pervasive) function, then Z has shape 
(A#i1ppR)/pR. | | 


This operator is like Reduce except that an existing axis in R 
other than the default may be specified by A. 


Identity: 


F/CA] R +> F/ (AC (1pPR)~A) ARR 


Example: 

+/[2] 2 3 49124 
15 18 21 24 
51 54 57 60 


The symbol £ may be used instead of /. 


F may be any dyadic function which produces a result. R must be 
an array whose sub-arrays along the last axis are appropriate 
to the derived function F/. Z is an array with the same shape 


as R, except possibly along the last axis. 


Consecutive sub-arrays along the last axis of Z are defined in 
terms of the operator Reduce. | 


If 0O<7"14pR, then Z is: 
(14(ppRIR),(F/24+CppRIR), ... (F/R) 
If O="1+pR, then Z is R. 


If F is a scalar function, then Z has the same shape as R, and 
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(T0CepR] Z) ++ F/ I+UCppRA] R 





for every simple scalar I for which (T0CepRJR) is defined. 





Examples: 
+\ 1 
1 
+\ 4 2 
+\ 1 2 3 
1356 
+\ 3 49112 
1 3 610 
5 1118 26 
9 19 30 42 
e\ 2 3 
2 
p"N 2 3 
2 3 3 
Y 'ABCDEt 
AABABCABCDABCDE 
»"\ 'ABCDE? 


A AB ABC ABCD ABCDE 


>» \ 2 3912345 6 
1 12 123 
4 45 4556 
The symbol \ may be used instead of Y to indicate the first axis 
of R rather than the last. 


Example: 


+X 3 4p112 
1 2 3 4 
6 8 10 12 
15 18 21 24 
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Scan with Axis: Z € FNCA] R 


F may be any dyadic function which produces a result. R must be 
an array whose sub-arrays along axis A are appropriate to the 
derived function F/[A]. A may be a simple scalar or a one ele- 
ment vector containing an integer axis ink. Z is an array with 
the same shape as R, except possibly along axis A. 


Consecutive sub-arrays along axis A of Z are defined in terms 
of the operator Reduce. | | 


If O<(pR)CA], then Z is: 
(14CAIR) ,CA](F/CAI2+CAIR) CAI ..- ,LAI(F/TAIR) 

If O=(pR)CAI, then Z is R. 

If F is a scalar function, then 2 Hae the same shape as R, and 
(I0(A] Z) +> F/CA] I*TAJ R 

for every simple scalar I for which (I0(A]R) is defined. 


This operator is like Scan except that an existing axis in R 
other than the default may be specified. 


Examples: 
+1[2] 2 3 4pi24 


1 2 3 4 
6 8 10 12 


15 18 21 24 


13 14 15 16 
30 32 34 36 
51 54 57 60 


The symbol \ may be used instead of \. 
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BRACKET AXIS OPERATOR 


Bracket Axis is a notation for an operator specifying the 
sub-arrays for the application of a monadic or a dyadic func- 
tion. It has two forms which are distinguished from each other 
and from an axis specification by one or two semicolons. An 
axis specification has no semicolons: 


Z + FCA] R axis specification producing monadic 


Z € L FCA] R axis specification producing dyadic 
Z +  FCAZ;AR] R bracket axis producing monadic 
Z + L FCAZ3AL3AR] R bracket axis producing dyadic 


Numeric axis scalars or vectors may be present between the 
brackets and separated by the semicolons, while the permitted 
range is determined by the particular function and arguments 
with which it is used. Any axis vector which is empty is 
treated as an empty integer axis vector. An axis vector may not 
contain repetitions. An axis vector in non-increasing order 
implies a transposition. 


The Bracket Axis operator is different from an axis specifica- 
tion. Bracket Axis modifies the behavior of a function in a 
manner which is consistent, and independent of the specific 
function. The meaning of axis specification depends on the 
specific function to which it is applied. There are, however, 
Similarities in some cases: 


c[A] R «> c[;4A] R 

LAT R +> ÞCA;A] R 
F”/TA] R +> F°/CA3A] R 
L/CA}] R +> L /CA;;A]J R 
L +[A] R +> L +[A354] R if (ppL)<ppR 
L +[A] R +> L +[4;4;] R if (ppL)>ppR 
L TAR +> L $CA;10;A] R 


DTO is an implicit argument of Bracket Axis. 


Bracket Axis (producing Monadic) Z +- FLAZ¡ AR] R 


F may be any monadic function which produces a result. R must 
be an array whose sub-arrays specified by AR are appropriate to 
the monadic function F. Z is an array whose sub-arrays are 
formed by applying F to sub-arrays of R. Each application of F 
must produce an identically shaped array, which becomes a 
sub-array of Z along axes AZ. | 
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If present, AR determines the axes of the sub-arrays of R to 
which F will be applied. If AR is elided, then this defaults to 
all axes of R. If present, AZ determines the axes of the 
sub-arrays of Z into which the axes of the result sub-arrays 
will be put. If elided, then this defaults to the last axes of 
Z. This results in the following identity: 


Fs] R +> FR 


If AR is present but empty (meaning scalars of R), then the 
derived function F[;10] is similar to F”, except that the 
sub-arrays resulting from applications of function F must be 
identically shaped, and they are assembled into an array with- 
out any additional depth. Provided that each application of F 
produces an identically shaped array, then: 


FUAZ¡ARJ R +> >[A4Z] F” c[AR] R 


If the collection of selected sub-arrays is empty, then the 
argument presented to F is e>c[ARJR. If in addition F is 
defined, then F must contain the system label OFL (see "System 
Labels" on page 227). If the collection of selected sub-arrays 
is empty, then F may not be derived, except when directly 
produced by a defined operator containing the system label OFL. 


If the result of an application of F is simple, then Z is 
simple. | 


Example: 


Z + ,[31073 1 2 3 
Z ‘ 
1 
2 
3 


pZ 
3 1 


If AR specifies all coordinates of R, then the derived function 
FC;AR] is the same as F. : | 


Example: 


Zz € ,€313 1 2 3 
Z 

12 3 
pZ 

3 


The resulting sub-arrays are put along the last axis of Z, 
unless specified otherwise by AZ. If given, this item must 
have the same number of elements as the rank of the result of an 
application of function F. 
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Example: 





Z + ,€131) 1 2 3 
Z 
12 3 
pZ 
1 3 


The shape of the sub-arrays selected from the argument must be 
appropriate for the function F. 


Examples: 


+ 3 40123146785 9121110 


bh 


14 
5 
10 


e 
NNN 
20m y 


+ A[317 R 


N ad nd 

WN N AY 

-= (Y W W 
NN 


LE 
Ww 





Z + ,(131 2] 2 3 4pı24 
Z 


3 4 
7 8 
11 12 
13 14 15 16 
17 18 19 20 
21 22 23 24 
pZ 


wou 
O NN 


Z + ,[2;1 2] 2 3 4pi24 
Z 


9 13 17 21 
10 14 18 22 
11 15 19 23 
12 16 20 24 

pZ 





E EWN 
O 3 Y ui 


on 
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zZz + ,[2;2 1] 2 3 4p128 


Z 
413517 921 4 
214 6 18 10 22 
3 15 7 19 11 23 
416 8 20 12 24 
pZ 
4 6 
Rev 3 4p112 
pR 
3 10 
R 
1 2 3 4 
5 6 7 8 
9 10 11 12 
Z € 2[,32)] R 
pz 
3 Y | 
Z 
1 2 3 4 
5 6 7 8 
9 10 11 12 
Z e >[,10] 'HIM' 'HER' 
Z 
HIM 
HER 
pZ 
2 3 
z + >[1;1:0] 'HIM! ‘HER! 
Z | 
HH 
IE 
MR 
pZ 
3 2 


If the collection of sub-arrays is empty, then the argument 
presented to F is e>c[AR]R: 


z « +[;2] O 3p0 
pZ 
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Bracket Axis (producing Dyadic) Z € L F(AZ;AL;AR] R 


F may be any dyadic function which prođuces a result. R must be 
an array whose sub-arrays specified by AR are appropriate to 
the dyadic function F. L must be an array whose sub-arrays 
specified by AL are appropriate to F. Z is an array whose 
sub-arrays are formed by applying F to (possibly different) 
sub-arrays of L and R. Each application of F must produce an 
identically shaped array, which becomes a sub-array of Z along 
axes AZ. 


The collections of sub-arrays of L and A must conform with each 
other in rank and length, unless a sub-array is the entire 
array, in which case it will be replicated like a scalar as nec- 
essary. 


If present, AR determines the axes of the sub-arrays of R to 
which F will be applied. If AR is elided, then this defaults to 
all axes of R. If present, AL determines the axes of the 
sub-arrays of L to which F will be applied. If AL is elided, 
then this defaults to all axes of L. If present, AZ determines 
the axes of the sub-arrays of Z into which the axes of the 
result sub-arrays will be put. If elided, then this defaults 
to the last axes of Z. This results in the following identity: 


LFC3;] R es LFR 


If AL and AR are present but empty (meaning scalars of L and R), 
then the derived function FC3103;10] is similar to F”, except 
that the sub-arrays resulting from applications of function F 
must be identically shaped, and they are assembled into an 
array without any additional depth. Provided that each appli- 
cation of F produces an identically shaped array, then: | 


L FI[AZ;¡ALyAR] R «> [AZ] (<[AL) L) F" SCAR) R 


If the collections of selected sub-arrays are empty, then the 
arguments presented to F are e>c[ALIL and e>c(ARJR. If in 
addition F is defined, then F must contain the system label DFL 
(see "System Labels" on page 227). If the collections of 
selected sub-arrays are empty, then F may not be derived, 
except when directly produced by a defined operator containing 
the system label OFL. : 


If the result of an application of F is Simple, then Z is 
simple. | 
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Example: 


Zz + 10 20 30 ,[;310;107 1 2 3 





Z 
10 1 
20 2 
30 3 

pZ 
3 2 


If AL and AR specify all coordinates of L and R, then the 
derived function F(;AL;AR] is the same as F, | 


Example: 
z «10 20 30 ,[;1;1] 1 2 3 
Z 

10 20 30 1 2 3 
pZ 

6 


If a sub-array is the entire array, then it will be replicated 
like a scalar as necessary. 


Examples: 


z + 10 20 30 ,[;10;1] 1 2 3 


eo 


10 12 3 

20 12 3 

30 12 3 
pZ 

3 4 
Z + 140 20 30 ,[;1;:10] 1 2 3 
Z 

10 20 30 1 

10 20 30 2 

10 20 30 3 
pZ 

3 4 
R e 3 2p'ABCDEF' 
R 

AB 

CD 

EF 
Z e 7 p[;;2] R 
Z 

ABABABA 

CDCDCDC 

EFEFEFE 

0 02 
3 7 
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The resulting sub-arrays are put along the last axis of La 
unless specified otherwise by AZ. If given, AZ must have the 
Same number of elements as the rank of the result of an applica- 
tion of function F, 


Examples: 


Z + 10 20 30 ,[1;510:31] 1 2 3 


Z 
10 20 30 
1 1 4 
2 2 2 
3 3 3 
pZ 
4 3 
Z + 10 20 30 [1313107] 1 2 3 
Z 
10 10 10 
20 20 20 
30 30 30 
1 2 3 
pZ 
4 3 


The shapes of the sub-arrays selected from the left and right 
arguments need only conform with respect to the function F. 


Examples: 


L € 3 Up! THEYWANTRAIN! 


L 
THEY 
WANT 
RAIN 
Z & L 11:31:31) tare 
Z 
4 1 
2 Y 
4 y 
4 2 
pZ 
4 2 
Z € L 1013131] tart 
zo 
42 4 4 
1 4 4 2 
pZ 
2 4 
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Z e L 113231] "AT" 





Z 
5 1 
2 4 
2 5 
pZ 
3 2 
Z «e L 111,21) 'AT' 
Z 
5 2 2 
1 45 
eZ 
2 3 
R e 2 4pt|\-«gee! 
R 
|\\-* 
doe 
Z¢122 1 00310517] R 
Z 
RTS 
pZ 
4 


If the collections of sub-arrays are empty N then the arguments 
presented to F are e>c[ALJL and e>c[AR]R: 


Z «yu +£332] O 3p0 
pZ 
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PRIMITIVE DYADIC OPE OR 


The primitive dyadic operators take a left operand (which must 
be either a function or >) and a right operand (which may be 
either a function or an array), and produce a dyadic derived 
function. | 


ARRAY PRODUCTS 


The array product operator (.) may produce either of two 
derived functions, depending on the left operand: 


outer product °.G 
inner product F.G 


where G is a dyadic function, and F is a dyadic function. 


Outer Product: Z Lo QR | 


The left operand of the operator is the symbol +. GQ may be any 
dyadic function. L and R may be any arrays whose elements are 
appropriate to the function G. | 


Sub-arrays of Z are created by applying the function G between 
each element in L and each element in R, in all combinations. 
Each application of function G must produce identically shaped 
results. | | 


Any axes produced by the function G are placed last in Z, so 
that: | 


pZ +> (pL),(pR),S 


where S is the shape of the result of an application of function 
G. If Gis a scalar (or pervasive) function, then § is empty, 
and pZ is (pL) ,pR. 


If either argument is empty, then G is executed once with argu- 
ments ce>L and ce>R. If in addition G is defined, then G must 
contain the system label DFL (see "System Labels" on page 227), 
If either argument is empty, then G may not be derived, except 
when directly produced by a defined operator containing the 
system label DFL. 
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Examples: 





Z e 10 20 0.+ 123 





pZ 
2 3 
Z 
11 12 13 
21 22 23 
Re 3 SptTHEYWANTRAIN' 
R 
THEY 
WANT 
RAIN 
Z € 'AT! o,= R 
Z 
0000 
0100 
0100 
1000 
0001 
0000 
pZ 
234 
Z + 10 20 >2.,+ 0p0 
pZ | 
2 0 
Z«10 20 °.x 13 07 pO 
21307 
Z«1020°., 1 2 3 
pZ 
2 3 2 
Z 
10 1 
10 2 
10 3 
20 1 
20 2 
20 3 


3 4 o,(4") 'D000* 'asdddt 'oooooo' 
D00 AAA ooo 
OOOO 4444 0000 


Primitive Operators 177 





If either argument is empty, then G is executed once with argu- 
ments ce>L and ce RR: 


Z+¢23 4 o,f 01 5p0 
pZ 
30150 


Inner Product: Z e LF.GR 


F may be any dyadic function, G may be any dyadic function 
which produces a result. L and R may be any arrays whose rows 
and columns (respectively) are appropriate to the function G. 


The function G is applied between each row (along the last 
axis) of L, and each column (along the first axis) of R, in all 
combinations. Then the derived function F/ is applied to each 
of these results. 


Identity: 
pZ +> ("1+pL),(1+pR),S 


where S is the shape of the result of an application of func- 
tions F/ and G. The derived function +.x is equivalent to 
matrix multiplication. 


If Oe 1+pL or Oe1l+pR, and also G is defined, then G must contain 
the system label (FL. I£ Oe 1+eL or Oc1l+pR, then G may not be 
derived, except when directly produced by a defined operator 
containing the system label OFL. (See "System Labels" on page 
227.) 


If the result of an application of function G is empty along its 
last axis, and also F is defined, then F must contain the system 
label OID. If the result of an application of function G is 
empty along its last axis, then F may not be derived, except 
when directly produced by a defined operator containing the 
system label OID. (See "System Labels" on page 227, ) 


Examples: 


10 20 30 +.x 1 2 3 
140 


(2 3916) +.x 3 4pit2 


38 44 50 56 
83 98 113 128 
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(2 3p16) L.T 3 4pr12 








1234 
4 4 4 
L + Y 3p'ME YOUME TOO! 
L 
ME 
you 
ME 
TOO 
L A= 'ME 1 
101 0 
L v.= *tAGO! 
0001 
R + 3 80'SATURDAY7/04/81 JULY 4 ! 
R 
SATURDAY 
7/04/81 
JULY Y 
R +.e '0123456789! 
05 1 
(2 301 01 01 1) ,./ 3 4o'MUCHMORETIME! 
MT 
UI 
CM 
HE 
MT 
OI 
RM 
EE 
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SYSTEM FUNCIIONS 





The APL2 system functions manage objects in the active work- 
space, the APL2 environment, or resources of the APL2 system. 
They all have distinguished names which begin with a quad (U). 


Canonical Rep. 
Delay 


Attributes 


Execute Alternate 
Event Simulation Event Simulation 

Expunge | 

Fix i Fix 

Name Class 

Name List Name List 

Sh. Var. Control | Sh. Var. Control 


. Var. Offer Sh. Var. Offer > 

. Var. Query | | 

. Var. Retract 

. Var. State o 
Transfer Form Transfer Form 





© Figure 11. System Functions 
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MONADIC SYSTEM FUNCTIONS 


| Canonical Representation: Z + DCR R 


R may be a simple character scalar or vector which represents 
the name of a displayable defined function or operator. Z is 
the simple character matrix of the named object's canonical 
representation. | 


The first row of the matrix is the function/operator header. 
It contains the model statement, followed perhaps by a semico- 
lon and a list of local names separated by blanks. 


The remaining rows of the matrix are the lines of the function 
or operator. They contain no unnecessary blanks except for 
trailing blanks, and blanks in comments (including the ones 
immediately preceding the a). A canonical form may contain 
entirely blank lines. An entirely blank row may represent an 


empty expression in the function. The last column of a 


canonical form will not be entirely blank. 
Example: 


V ZF R 
(13 Z<1+Rx2 
y 


Z + OCR tF! 
Z | 
ZeF R 
Ze1t+Rx2 

pz 
2 7 


R may be a scalar non-negative real number. A pause of approxi- 
mately R seconds is invoked. Z is areal scalar containing the 
number of seconds actually delayed. The pause may be inter- 
rupted by a strong interrupt. 


Example: 


ODL 2 
2.00128 
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Event Simulation (Monadic) : DES R 


R must be a Simple character scalar or vector, or a zero or two 
element integer vector. Event Simulation never returns an 
explicit result. 


If R is an empty vector, then no action is taken. 


If R is a non-empty character vector, then it is displayed, and 
then an error condition is generated in the expression which 
invoked the function within which the DES occurs. Normal error 
handling is initiated except no error message is displayed (ex- 
cept for R). The Event Type system variable DET is set to 01. 
If OES is executed from within a defined function or operator, 
then the event action is generated as though the function or 
operator were locked or primitive. 


Example: 


vV ZF R 
(13 DES (O=R)/'WRONG'! 
[2] ZetR 

y 

FO 

WRONG 
FO 
A 


DET 
O 1 


If R is a two element integer vector, then it is assigned to the 
Event Type system variable DET, and then an event simulation is 
generated in the expression which invoked the function. If, in 
addition, R is a legal error event code, then an error message 
in the current national language is reported (refer to the sys- 
tem variable ONLT). Legal error event codes are listed on page 
208 in the discussion of the system variable DET. 
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Examples: 


vV ZeF R 
C1) DES (0=R)/5 Y 
[2] Ze+rR 
y 
FO 
DOMAIN ERROR 
FO 
A 
DET 
5 4 
ONLT + *DEUTSCH! 
FO 
UNGUELTIGES ARGUMENT 
FO 
A 
DET 
5 4 


If R is 0 0, then the active workspace is cleared if there is no 
error trapping associated with the expression. 


Example: 
VF 


[1] OFS 00 
y 


F 
CLEAR WS 
- DET 
00 
)FNS 


If the expression DES O 0 is trapped with the Execute Alternate 
(DEA) system function, then a trapped error is generated with 
no associated message, DET is set to 0 0, and the workspace is 
not cleared. | 
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Example: 
yv F 


C1) DES 0 0 
y 


'DET! DEA 'F! 


'QEM* DEA 'F' 


ro 
A 


-)FNS 


Expunge: Z + DEX R | 


R must be a simple character scalar, vector, or matrix whose 
rows are interpreted as APL2 names. Z is a simple logical 
scalar or vector of shape ~1+pR. | 


Each name in R is disassociated from any value it may have had, 
if it represented either of: | 


1. a defined operator 
2. a defined function 


3. a (non-system) variable, which may or may not be localized 
in a defined function or operator 


4. a system variable which is localized in a defined function 
or operator, and which is one of OCT, OFC, O10, OLX, UMD, 
OPP, OPR, or ORL. 


$ 


5. an argument of a defined function or operator 
6. an operand of a defined operator 


If any of the objects are shared variables, then their shares 
are retracted. Z has shape "1+pR, and contains a 1 for each 
corresponding variable name in R if the name is now available 
for use. 


If a name in R is that of a system label or a system function, 


then the corresponding element of Z is 0, but the meaning of the 
name will remain unchanged. 
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If a name in R is that of a system variable, then the corre- 
sponding element of Z is 1. If in addition the system variable 
is one of OCT, DFC, DIO, OLX, OMD, OPP, DPR, or ORL, then its 
value is removed. 


Example: 
A «e 1 
DEX 2 1p'AB! 
1 1 
o Á 
VALUE ERROR 
A 
A 
Example: 


V ZL (F P G) RXV 
[1] B: vel 
C2] ONC 9 1p*'ZLFPGRXVB! 
C3] DEX 9 1p'ZLFPGRXVB! 
C4] ONC 9 1p'ZLFPGRXVB! 
y 


O= 0O 
O a N 
O = w 
O > 5 
O a uy + 
O Ny x 
O 20 N 
O = y 
“hb O = 


Suspended or pendent defined functions may be Expunged. This 
will not, however, change the definition of a previously 
invoked function in the state indicator. Such a function will 
retain its original definition until its execution is com- 
pleted. Until such time, the previously invoked definition 
exists on the stack only, and it may not be edited. 


Example: 

eOFX *F! 141 1240?! 13! 
DOMAIN ERROR 
FC[2J 2+0 


AA 


)SI 
F[2] 


DEX tF)! 


)SI 
F(2) 
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+3 


3 
F 
VALUE ERROR 
F 


A 


Fix (Monadic): | Z e OFX R | | 


R must be a simple character matrix, or a vector of character 
scalars, vectors, or both. Z is either an integer scalar, or a 
character vector. 


-R represents the definition for a function or operator in a 
pseudo canonical form. If the definition is a valid one, then 
the function or operator is established in the active 
workspace, and Z is the name of the established object. The 
name of the function or operator that is being established must 
be either undefined, or the name of another defined function or 
operator. It may not be the name of a variable. | 


If the definition is not a valid one, then Z is a scalar integer 
indicating the first row of the function or operator line which 
is in error. The integer is dependent upon DIO. 


OFX will accept a pseudo canonical form with the following var- 
iations from a canonical form: 


4. It may contain unnecessary blanks. 


2. The header may have semicolons between local names instead 
of blanks. 


3. It may be a vector of character scalars and/or vectors 
instead of a character matrix. 


A canonical form may contain entirely blank lines. Trailing 
blanks in comments will be removed. 


Examples: 


OFX *Z¢F R! 'Z¢1+Rx2! 


F 

F 3 
7 

OFX (e'Z+F R'),c'ze1+Rx2* ,DAV[1] 
s | 
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Suspended or pendent defined functions may be Fixed. This will 
not, however, change the definition of a previously invoked 
function in the state indicator. Such a function will retain 
its original definition until its execution is completed. 
Until such time, the previously invoked definition and the cur- 
rent definition may be different. 


Example: 
e OFX te! 141 1230! 131 


DOMAIN ERROR 


FC2] 2+0 
AA 
)SI 
F[2] 
OFX Ft 111! 1121 1131 
F 
33 
3 
F 
11 
12 
13 


Name Class: Z € DNC R 


R must be a simple character scalar, vector, or matrix whose 
rows are interpreted as APL2 names. Z is a simple integer 
scalar or vector of shape "1y+pR. i 


Each element in Z is the name class of the corresponding name in 
R. Aname class may be: 


4 - invalid name 
0 - unused but valid name 
1 - name of a label (a constant) 
2 - name of a variable 
3 - name of a function 
4 - name of an operator 
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An undefined name is classified as a variable if it has been 
shared (but not yet assigned). 


Example: 


A € 1 
O OSVO *B! 


ONC 3 1p'ABQ! 
22 0 


a which represent primitive functions and OpETATOLS are 
classified as invalid names. 


Example: 


Onc 3 1p! +/" 
741 71 71 


The names of system labels, system variables, and system func- 
tions are treated like those of common labels, variables, and 
functions. 


Example: 


Onc 3 3p'ODIDOTOONC! 
12 3 | 


The name class of the name of an argument in a defined function 
or operator may be 0 or 2, depending upon whether or not it has 
been used. 
Example: 
vV ZL F R 
C1] Z+ONC 2 1p'LR! 
V 
0 2 
The name class of the name of an operand in a defined operator 


may be 2 or 3, depending upon whether it is an array or a func- 
tion. 
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Examples: 


| v Ze(F O G) RV X 
C1] vet 
[2] Z+ONC 6 1p'FOGRVX! 
y 


+OPx 1 
3843220 


(+0P 0) 1 
342220 


Name List (Monadic): Z € DNL R 


R must be a simple integer scalar or vector containing only 1, 
2, 3, or 4. Z is a simple character matrix. 


Z is a simple character matrix of the names of all objects cur- 
rently active (and most local) in the workspace whose name 
class is mentioned in R (see the system function ONC). Names of 
distinguished system objects ([-names) are not included. The 


list is in alphabetical order, according to the Atomic Vector 


(OAV) character sequence in Figure 17 on page 285. 
Example: 
A + AC +“ AB ¢< 1 


ONL 2 


AC 


Shared Variable Control (Monadic): Z «€ OSVC R 


R must be a simple character scalar, vector, or matrix whose 
rows are interpreted as APL2 names. Z isa simple logical vec- 
tor or matrix of shape (“"1y+pR),4. Z contains the 4-element 
vector of access controls for each corresponding (non-system) 
variable name in R. If a name in R is something other than a 
non-system variable, than the corresponding access control 
vector is0 000. . | 
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The access control vector is described with the dyadic Shared 
Variable Control system function on page 200. 


Shared Variable Offer (Monadic) Z «+ OSVO R 


R must be a simple character scalar, vector, or matrix whose 
rows are interpreted as APL2 names. Z is an integer scalar or 
vector of shape “1ypR. Z contains the degree of coupling for 
each corresponding variable name in R. 


There are three possible degrees of coupling: 


Ó - unshared 
1 - share offer extended, but not consummated 
2 - shared 


Shared Variable Query Z + OSVQ R 


R may be an empty vector, or a scalar or one element simple 
integer array. Z is an integer vector or a character matrix. 


If R is an empty vector, then Z is an integer vector of iden- 
tifications of processors making share offers. 


If R is a scalar or one element integer array containing a 
processor identification, then Z is a matrix of variable names 
offered by the processor specified by R, but not yet shared 
(degree of coupling less than 2). 


Shared Variable Retraction: Z + OSVR R 


R must be a simple character scalar, vector, or matrix whose 
rows are interpreted as APL2 names. Z is an integer scalar or 
vector of shape "1y+pR. The degree of coupling for each vari- 
able named in R is reduced to 0. Z contains the previous degree 
of coupling for each corresponding variable name in R. After a 
shared variable has been retracted, it is not shared. 
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= Shared Variable State: Z e (SVS R | boa 


R must be a simple character scalar, vector, or matrix whose 
rows are interpreted as APL2 names. Z isa simple logical vec- 
tor or matrix of shape ("1+pR),4. Z contains the 4-element 
vector of access states for each corresponding variable name in 
R. A vector of access states may have any of four possible val- 
ues: : 


00 0 0 not a shared variable 


0011 set by one processor, and referenced by the other 
(also, the initial state) 


1010 set by first processor, but not yet referenced by the 
second 


0101 set by second processor, but not yet referenced by 
the first 


The "second processor" is the one with which the sharing is 
done (the one mentioned in dyadic OSvo). 


Transfer Form (Monadic): Z + OTF R 


R must be a simpre character scalar or vector. Z is a simple 
character vector. 


If R is the name of a añ, or a displayable defined func- 
tion or operator, then Z is a character vector which is the 
extended transfer form of that object. If the transfer form 
cannot be formed, then Z is an empty character vector (''). 


If R is the name of a shared variable, then taking its transfer 
form constitutes a reference of the variable. 


If R is the extended transfer form of a variable, a defined 
function, or a defined operator, then that object is estab- 
lished in the workspace, and Z is a character vector containing 
its name. If the transfer form is invalid, then Z is an empty 


character vector (''), This is called the Inverse Transfer 
Form. 


Identity: 
OTF R “> 2 OTF R 
for all valid R. 
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OTF is described in more detail in the discussion of the dyadic 
system function Transfer Form, and in “Appendix C. The Extended 


Transfer Form" on page 319. 
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DYADIC SYSTEM FUNCTIONS 


Attributes: Z € L DAT R | 


R must be a simple character scalar, vector, or matrix whose 
rows are interpreted as APL2 names. L must be an integer 
scalar. Z is an integer vector, or matrix. “1+pZ is “1+poR, Z 
contains an attribute vector for each corresponding object 
name in R according to the integer L: 
1 - Valences (length 3) 
1. explicit result 
2. function valence 
3. operator valence 
2 | Fix Time (length 7) 
1. year 


. month 


. day 


2 
3 
$, hour 
5. minute 
6. second 
7. millisecond 
3 - Execution Properties (length 4) 
1. non-displayable 
- non-suspendable 


2 
3. ignores weak interrupts 
4 


« converts non-resource errors to DOMAIN ERROR 


194 APL2 Language Manual 

















Examples: 


OFX *L EN R! 'L+R' 
FN 

OFX 'Z «(F OPR) R! 'F +A! 
OPR 

0110 DFX 'L GN R! 'LtR! 
GN 

VAR «€ 1 2 


1 DAT 3 3p'FN OPRVAR!' 


-h - © 
OAN 
O =0 


2 DAT 3 3p'FN OPRVAR! 
1980 7 4 10 13 50 990 
1980 7 4 10 13 51 15 
000 0 0 O 0 


DAT 3 3p'FN GN OPR! 


ooo 
O =| Q 
O 0 
OO Ou 


Valences are discussed further in "Function and Operator Defi- 
nition" on page 275. The fix time for a variable is always all 
zeros. The execution properties for a variable are always all 
zeros. 


Identity: 
pL DAT R +> (7140R),N 


where N is the length of the particular attribute vector speci- 
fied by L. l 


The results of DAT applied to the names of system objects are: 


System Label 


(undefined) 
System Variable 
(undefined) 
System Function 
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Event Simulation (Dyadic): L DES R 


R must be a zero or two element simple integer vector. L must 
be a simple character scalar or vector. Event Simulation never 
returns an explicit result. 


If R is an empty vector, then no action is taken. 


If R is a simple two element vector, then it is assigned to the 
Event Type system variable DET, L is displayed, and then an 
event simulation is generated in the expression which invoked 
the function within which the DES occurs. Normal error handl- 
ing is initiated except no error message is displayed (except 
for L). If DES is executed from within a defined function or 
operator, then the event action is generated as though the 
function or operator were locked or primitive. 


Dyadic Event Simulation is like monadic Event Simulation 
except that both the message to be reported and the new value of 
the Event Type system variable DET may be specified. 


Example: 
vV ZeF R 


C1) 'WRONG! DES (0=R)/13 17 
C2) Ze+R 


| DET 
13 17 


If R is 0 0, then L is reported and the active workspace is 


cleared if there is no error trapping associated with the 
expression. 
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Example: 
yV F o 
C1) 'NOT AUTHORIZED’ DES O O 
y 


F 
NOT AUTHORIZED 
CLEAR WS 


DET 
)FNS 


If the expression L DES 0 O is trapped with the Execute Alter- 
nate (DEA) system function, then a trapped error is generated 
with message .L, DET is set to 0 0, and the workspace is not 
cleared. 


Example: 


v F B 
C1] 'NOT AUTHORIZED! QES O O 
v | 


'OET' OFA 'F* 


'OEM' DEA 'F* 
NOT AUTHORIZED 

F 

A 


)FNS 


Execute Alternate: Z + L DEA R 


R must be a simple character vector or scalar. L must be a sim- 
ple character vector or scalar. Both L and R must contain only 
valid APL2 characters, and not any terminal control characters 
(see "The APL2 Character Set" on page 285). 


R is taken to represent an APL2 expression, and is executed in 
the context of the statement in which it is found. Z is the 
value of the APL2 expression in R. If the expression has no 
value, then L DEA R has no value. 
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If there is an error in the APL2 expression R, or if R is inter- 
rupted, then execution of R is aborted without an error 
message, and L is executed instead. In that case, Z is the val- 
ue of the APL2 expression in L. If the expression has no value, 
then L DEA R has no value. Execution of L is subject to normal 
error handling. 


Examples: 


t12! DEA 141 
1234 


1121 DEA 14.5% 


fo? DEA 14,5! 


112.3! OEA 114,5? 
DOMAIN ERROR 

12.3 

A 

112.3? OFA 114,5? 

A A 


If R calls a defined function F, then the statements executed 
by F are also under control of the error trap. In particular, A 
could call a long running function, and L could be an error 
recovery function. 


Fix (Dyadic): Z € L DFX R 


R must be a simple character matrix, or a vector of character 
scalars, vectors, or both. ZL must be a simple logical 4 element 
vector. Z is either a simple integer scalar, or a simple char- 
acter vector. 


R represents the definition for a function or operator. If the 
definition is a valid one, then the function or operator is 
established in the active workspace, and Z is the name of the 
established object. The name of the function or operator that 
is being established must be either undefined, or the name of 
another defined function or operator. It may not be the name of 
a variable. | 


If the definition is not a valid one, then Z is a scalar integer 
indicating the row of the function or operator line which is in 
error. The integer is dependent upon OJO. 


Dyadic Fix is like monadic Fix, except that the defined func- 


tion or operator is given execution properties as specified by 
L. There are four independent properties: 
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4. is not displayable 

2. is not suspendable 

3. is not interruptible 

4. converts any non-resource error to DOMAIN ERROR 


Each property may be set independently by the corresponding 
element of L. Having all four execution properties the same as 
being locked. See "Execution Properties" on page 277 for a 
further description and examples of these properties. 


A defined function or operator which can be displayed may have 
its execution properties re-defined by the expression 
L OFX OCR R, where R is the name of the function, and L is the 
vector of properties. 


Name List (Dyadic): Z «€ L ONL R 


R must be a simple integer scalar or vector containing only 1, 
2, 3, or 4. L must be a simple character scalar or vector. Z is 
a character matrix. 


z is a matrix of the names of all objects currently active in 
the workspace whose name class is mentioned in R, and the first 
character of whose name occurs in L. Names of distinguished 
system objects (O names) are not included. The list is in 
alphabetical order, according to the Atomic Vector (OAV) char- 
acter sequence in Figure 17 on page 285. 


Example: 
A + AC + AB + BB + 1 
tat ONL 2 

A 

AB 

AC 


Refer to the Name Class system variable (ONC). 
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Shared Variable Control (Dyadic): Z + L DSVC R 


R must be a simple character scalar, vector, or matrix whose 


rows are interpreted as APL2 names. L must bea Simple logical 
scalar, vector, or matrix. Z isa simple logical vector or 
matrix. 


If L is a scalar, a 1-element vector, or a 4-element vector, 
then it is reshaped to shape ((—"1+pR),4) before application of 
the function, | 


The 4-element access control vectors in L are imposed on the 
corresponding variables named in R. Z has shape (“1+pR),4, and 
contains the resulting access controls. 


The resulting access controls may be more restrictive than 
those which were set, because a processor may only increase the 
degree of control imposed by the other. 


Ones in the 4 logical elements of an access control vector are 
interpreted as follows: 


1. Two successive sets by the first processor require an 
intervening set or reference by the second processor. 


2. Two successive sets by the second processor require an 
intervening set or reference by the first processor. 


3. Two successive references by the first processor require 
| an intervening set by the second processor. 


4. Two successive references by the second processor require 
an intervening set by the first processor. 


The "second processor" is the one with which the sharing is 


done (the one mentioned in dyadic DSVO). The access control 
vector is symmetric in the sense that the controls L of the 
first processor appear to be controls L[2 1 4 3] to the second 
processor. 


Shared Variable Offer (Dyadic): Z + L OSVO R 


R must be a simple character scalar, vector, or matrix whose 
rows are interpreted as APL2 names. L must be a simple integer 
scalar or vector, interpreted as processor identifications. Z 
is an integer scalar or vector of shape “1+pR. 


If L is scalar, then it is reshaped to shape (T1+oR) before 
application of the function. If L is non-scalar, then it must 
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have shape (~1+9R). The variables named in R are offered to the 
corresponding processors in L. 2 contains the resulting degree 
of coupling for each corresponding variable name in R. Degrees 
of coupling are described in the discussion of the monadic 
Shared Variable Offer system function. 


If a row of R contains a pair of names, then the first is the 
name of the variable to be shared, and the second is a surrogate 
name which is offered to match a name offered by another 
processor. The name of a variable may be its own surrogate. 
This is the default. Thus, the following two statements have 
the same effect: | 


100 OSVO 'CTL' 
100 DSVO tCTL CTL' 


A share offer to processor 0 is taken to mean a general share 
offer to any processor. 


Transfer Form (Dyadic): Z € L DTF R 


R must be a simple character scalar or vector. L must be a sim- 
ple integer scalar or one element vector. Z is a simple charac- 
ter vector. 


Dyadic Transfer Form is like monadic Transfer Form, except that 
the type may be specified by the left argument L. There are two 
types of transfer form: 


4. The migration transfer form, not permitted for non-simple 
variables or defined operators (described in detail in 
"Appendix B. The Migration Transfer Form" on page 317). 


2. The extended transfer form, permitted for any variables 
and displayable defined functions and operators (described 
in detail in "Appendix C. The Extended Transfer Form" on 
page 319). 


If R is the name of a variable, or a displayable defined func- 
tion or operator, then Z is a character vector which is the 
transfer form of type L for that object. If the transfer form 
of type L cannot be formed, then Z is an empty character vector 


(11). 


If R is the name of a shared variable, then taking its transfer 
form constitutes a reference of the variable. 


If R is the transfer form (of type L) of a variuble, defined 


function, or defined operator, then that object is established 
in the workspace, and Z is a character vector containing its 
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name. If the transfer form is invalid, then Z is an empty char- 


acter vector (*t*). This is called the inverse Transfer Form. 


Inverse Transfer Form ignores name class conflicts. That is, 
if there is a variable named X in the active workspace, an 
inverse transfer form may be performed to establish a function 
or operator with the same name X. Similarly, if there is a 
function or operator named X in the active workspace, an 
inverse transfer form may be performed to establish a variable 
with the same name YX. Additionally, if there is a shared vari- 
able named X in the active workspace, and if an inverse 
transfer form is performed to establish a variable with the 
same name X, then the old variable is expunged before the new 
variable is formed, so that any share on that variable is 
retracted. 


Identity: 
OTF R ++ 2 DTF R 
for all valid R. 


The migration transfer form is not permitted for defined opera- 
tors, but the inverse migration transfer form is. 
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The APL2 system variables help manage objects in the active 
workspace, the APL2 environment, or resources of the APL2 sys- 
tem. They all have distinguished names which begin with a quad 
(D) or a quote quad (0). 


Global value persists over a )CLEAR or a ) LOAD 
Can not be effectively localized 
Ignores an assignment 
Set by the system upon an error 


e E e Comparison Tolerance 
s a 3 Format Control Characters 
D we x Index Origin 
E & »* Latent Expression 
‘ot as oe Matrix Divide Tolerance 
-- oe 8. 3 Printing Precision 
- Ss 4 Prompt Replacement 
y u Random Link 
Character Input / Output 
Input / Output 
Shared Variable Event 
Left Argument 
Right Argument 
Event Message 
Event Type 
Account Information 
Atomic Vector 
Implicit Result 
Function Line Counter 
Terminal Control Characters 
Time Stamp 
Terminal Type 
User Load 
Workspace Available 
-— Horizontal Tabs | 
National Language Translation 
Printing Width 
Time Zone 





Figure 12. System Variables 


Figure 12 shows the system variables grouped by their proper- 
ties. The system variables for which implicit errors are pos- 
sible are OCT, Orc, OJO, UMD, DPP, OPR, and DAL. System 
variables whose values are assigned by the system upon an error. 


are called debug variables. They are DEM, DET, OL, and OR. 
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System variables which do not ignore an assigned value, and 
whose global value persists over a workspace )CLEAR or )LOAD , 
are called session variables. They are DAT, ONLT, OPW, and 
OTZ. 


Account Information: DAT 


This is a four element Simple integer vector reporting: 


DAT[1] - user identification 
DAT[2] - compute time (ms) | 
DAIC3] - connect time (ms) 
DAT[4] - keying time (ms) 


Elements of DAI beyond 4 are not defined but are reserved. 


The system re-specifies DAT, so that specifying it or localiz- 
ing it has no effect. 


Atomic Vector: DAV 


This is a simple character vector of all 256 characters in the 
APL2 character set (See "The APL2 Character Set" on page 285). 
The results of displaying or printing certain elements of DAV 
may depend on the type of terminal or printer being used. 


The system re-specifies DAV, so that specifying it or localiz- 
ing it has no effect. 


Character Input/Output: 0 


This is a variable shared with the system. It may be a simple 
character array. The behavior depends upon whether it is being 
assigned or referenced: 


When (M is assigned with an array, then the array is displayed at 


the terminal without the normal ending new line character, 
Successive assignments of vectors to U without any other inter- 
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vening terminal output or input cause attempts to display the 
arrays on the same terminal line. The sum of the widths of the 

assignments should be less than the width of the terminal being 
used. 


Example: 


VFX 
C1] M<'x ' 
[2] Met =! 
[31] Der 
C4) pex 


F 13 
X = 13 


When M is referenced, terminal input is requested, and is 
returned as a character vector. | | 


A reference to [M which is preceded by an assignment to M without 
any other intervening terminal output or input involves a 
prompt/response interaction. The last (or only) row of the 
assignment is called the prompt, and the result of the refer- 
ence is called the response. The response is a vector compos- 
ite of: 


14. a transformation of the unchanged characters in the prompt 


2. the terminal input, including changed characters in the 
prompt 


The transformation of unchanged characters in the prompt is 
determined by the Prompt Replacement system variable (UPR). 


On display terminals, the prompt is displayed in the entry area 
of the terminal. It may be appended or changed before input. 
If OPR is '', then the result of the reference to M is the vec- 
tor appearing in the display area when the entry is made. 


The sum of the widths of the prompt and the response should be 
less than the width of the terminal being used, or the result 
may be unpredictable. 


Examples: 
Y XeF 
[1] Mex =! 


[2] X40 
y 
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DPR « tx! 


Z e F | | 
X = 13 113 is typed by the user) 
pZ 
6 
Z 
*k*x13 
UPR «e 11 
Z eF 
X = 13 {13 is typed by the user} 
pZ 
6 
Z 
X = 13 


If a strong attention is signalled while terminal input is 
requested through M, then an interrupt is generated. On cer- 
tain terminals, such an interrupt can be generated by over- 
striking the three letters 0 U7. 


Comparison Tolerance: Ocr 


This is a simple real numeric scalar. It is the quantity used 
to determine fuzzy equality. The value in a clear workspace is 
18713. 


Real numbers L and R are considered equal if 
(IL-R) s Oerx(/L)rieR 
where the above s is strict, and uses no tolerance. 


Complex numbers L and R are considered equal if both their real 
and imaginary parts are equal. A complex number is considered 
to be real for comparison purposes if the greater of the abso- 
lute values of the imaginary part and the tangent of the angle 
is much less than DCT. Refer to the primitive dyadic function 
Equal for examples. 


The range of DCT is 0<OCcT and Ocr<1. The implementation of the 
equality determination is approximate. It is done in such a 
way that large values of DCT (near 1 ) become meaningless. 


OCT is an implicit argument of the monadic functions Ceiling 


(1), Floor (L), and Unique (n), and the dyadic functions Encode 
(T), Equal (=), Find (£), Find Index (1), Greater (>), Index of 
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(1), Less (<), Member (<), Not Equal (#), Not Greater (<), Not 
Less (2), and Residue (|). 


Event Message: DEM 


This is a simple character matrix containing the text of the 
last error or event message. The value in a clear workspace is 
3 Oot t 


OEM contains at least 3 rows: 

1. The error message (in the current national language) 
2. The statement invoking the error 

3. The carets pointing to the statement: 


a. The rightmost caret indicates where the error 
occurred. | 


b. The leftmost caret indicates how far evaluation of the 
statement had proceeded prior to the error. 


4. Possible further information 


In some cases, the left and the right caret will both indicate 
the same position, and only one caret will be seen. 


Errors occurring within the functions Execute or Execute 
Alternate result in messages which contain more than 3 rows. 


If there is not enough room in the workspace (OWA) to form DEM 
at the time of the error, but there is room to suspend the 
statement, then OEM will be a character matrix of shape 3 0, 
and the error event type code DET will not be affected. 


The system re-specifies DEM, so that specifying it or localiz- 
ing it has no effect. DEM is automatically local to a function 
called by a line entered in immediate execution. If there is 
not enough room in the workspace (OWA) to suspend the statement 
in error, then WS FULL will be reported, DEM will be set to a 
character matrix of shape 3 0, 


Example: 
14.5 
DOMAIN ERROR 


14,5 
A 
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pOEM 





3 12 
DEM 
DOMAIN ERROR 
14.5 
A 
Example; 
2 14,5! 
DOMAIN ERROR 
14.5 
A 
2!114,5! 
A 
pOEM 
5 13 
DEM 
DOMAIN ERROR 
14,5 
A 
214,5! 


A 





Event Type: DET 


This is a simple two element integer vector. It is set by the 
system to the event type code of the most recent event. The 
value in a clear workspace is 0 0. 


The first element of DET gives the major classification of the 
event type code, and the second element gives a sub-class: 


ON- Defaults 


00 - no error 
01 - unclassified event (DES !??') 
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4 N - Resource Errors 





- INTERRUPT 

- SYSTEM ERROR 

- WS FULL 

- SYSTEM LIMIT of symbol table 

- SYSTEM LIMIT of no shares 
SYSTEM LIMIT of interface quota 
`- SYSTEM LIMIT of interface capacity 
- SYSTEM LIMIT of array rank 

- SYSTEM LIMIT of array size 

- SYSTEM LIMIT of array depth 

- SYSTEM LIMIT of prompt length 


e do do dd dd dd dd md 
2000 X00ME540N — 
l 


h ob 


2 N - SYNTAX ERROR 


- no array (2x) 

- ill-formed line ([(]) 

name class (3+2) 

- illegal operation in context ((A+B)+2) 


N NN N 
SEWN 
1 


3 N - VALUE ERROR 


- name with no value 


3 1 
3 2 - function with no result 


4 N - Implicit Argument Errors 


4 1 - OPP ERROR 
4 2 - DIO ERROR 
4 3 - OCT ERROR 
4 4 - DFC ERROR 
4 5 - ORL ERROR 
4 6 - DMD ERROR 
4 7 


- OPR ERROR 


5 N - Explicit Argument Errors 


- VALENCE ERROR 
- RANK ERROR 

- LENGTH ERROR 
DOMAIN ERROR 
- INDEX ERROR 

- AXIS ERROR 


N UN -EUYN — 
l 


All undefined major event classifications numbered 0 through 
99 are reserved. Refer to "Error Messages" on page 253 for more 
Sd information about particular errors. 
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The system re-specifies DET, so that specifying it or localiz- 
ing it has no effect. DET is automatically local to a function 
called by a line entered in immediate execution. If there is 
not enough room in the workspace (DVA) to suspend the statement 
in error, then WS FULL will be reported, DEM will be set to a 
character matrix of shape 3 O, and OL and OR will not be set. 


O£T may be set because of execution of the system function 
Event Simulation DES. 


Format Control: OFC 


This is a simple 6-element character vector containing control 
characters implicitly used by the functions monadic and dyadic 
Format, and default array display. The value in a clear work- 
space is ',,x*0_J!, 
The element definitions are: 

OFC[1] - use for decimal point 

OFC[2] - use for comma 

OFC[3] - £111 when otherwise blank for digit 8 

OFC[4] - fill when otherwise DOMAIN ERROR for overflow 

OUFCC5] - print as blank (may not be »- 0123456789) 

UFCC6)] - complex number formatting (J, R, or D) 


Elements of OFC beyond 6 are not defined but are reserved. 


OFCC1] is used wherever a decimal point is needed in Picture 
Format: 


OFcC1] + ',' 
(5.5555! ¥ 3.1415 
3,1415 


OFCC2] is used wherever a comma is needed in Picture Format: 
DFC[2] e t.t 


1555,555,555' ¥ 123456789 
123.456.789 
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DFC[3] is used to fill where a field containing an 8 would oth- 
erwise be blank in Picture Format: | | 


prcr3] + 'O! 
-  1855555t + 1234 
001234 


OFCC4] is used to fill where a field is too small for a number 
or a non-scalar item in dyadic Format: 


orcrt4] e 1?2* 
155551 ¥ 123456 


2277? 

4 O 7 123456 
2222. 

4 O v 1234 'SEVEN!' 
12347777 


If OFCL4] is '0' (which is the default), then a field which is 
too small will result in a DOMAIN ERROR, | | 


OFC(5] is replaced by a blank without ending a field wherever 
it is used in Picture Format: 


OFc(5) « 'e! 
1$6355!' ¥ 12 
$ 12 


OFCL6] specifies either J, R, or D formatting for complex num- 
bers in default numeric displays or monadic Format: 


Orc(6)] « !J! 
+ O71 i 
0J1 


OFc(6) + 'R' 
¥ O71 
-41R1.570796327 


OFCC6] + 'D' 


¥ 0J1 
1D90 


Horizontal Tabs: DAT 


This is a simple non-negative integer scalar or vector contain- 
ing horizontal tab settings for typewriter terminals. (The 
left margin position is counted as position 1.) 
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On input, tab characters are translated to an appropriate num- 
ber of consecutive blanks. On output, consecutive blanks may 
be translated to tab characters. The value of OHT must accu- 
rately reflect the physical tab settings of the terminal being 
used, or terminal input may not be accepted, and misleading or 
unreadable output may be produced, 


DAT is a session variable. That is, if a valid global value is 
assigned, then it will persist over a workspace clear or load. 
If an invalid value is assigned, then it is ignored by the sys- 
tem. The initial value at the beginning of a session is 10. 


Index Origin: Oro 


This is a simple integer scalar containing the index of the 
first element of any non-empty vector. The value in a clear 
workspace is 1. The only acceptable values are 0 or 1. 


OO is an implicit argument of the monadic functions Fix (OFX) i 
Grade Down (Y), Grade Up (A), Index Set (0), Interval (1), Roll 
_(?), the dyadic functions Deal (2), Find Index (1), Fix (OFX) A 
Grade Down (Y), Grade Up (4), Index (0), Index of (1), Pick (>), 
Transpose (&), Bracket Indexing, and bracketed axes. 


Implicit Result; DIR 


This is an array containing the implicit result ofa function. 
The value in a clear workspace is 0. DIR is set by the system 
when certain primitive functions execute, 


For the functions Matrix Inverse (BR) or Matrix Divide (LØR), 
if DMD is 0, then the implicit result is the number of independ- 
ent rows in the matrix (the algebraic rank). OMD is set whether 
Or not the function executes without a DOMAIN ERROR. Refer to 
the descriptions of these functions for more information. 


The system re-specifies OIR, so that specifying it or localiz- 
ing it has no effect. | 
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© Input / Output: Do. | 


This behaves like a variable shared with the system. The 
behavior depends upon whether it is being assigned or refer- 
enced: 





When O is assigned an array, the array is displayed at the 
terminal. 


Example: 


pO+13 
12 3 
3 


When O is referenced, a prompt (0:) is displayed at the 
terminal, and terminal input is requested under control of 
default error or interrupt handling. After the requested 
input is supplied and evaluated (by producing an array), 
error and interrupt handling reverts to whatever it was 
prior to the reference of D. 





Examples: 
pA+10+0x2 
D: 
13 
3 
Á 
12 14 16 
pA+10+0x2 
D: 
13.4 
DOMAIN ERROR 
13.4 
AA 
D: 
13 
3 
A 
12 14 16 


If the response to a D: prompt is an abort statement (>), 
then execution will be aborted. 


Examples: 


pA+10+0x2 


o j 
> 
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VF 
C1) pA+10+0x2 
y 


F 
> 
)SI 
System commands may be entered when a O: prompt is dis- 


played. Any response to a system command is not treated as 
a response to O. 


Examples: 
10+0x2 
\WSID 
IS CLEAR WS 
D: 
13 
12 14 16 
10+0x2 
O: 
)CLEAR 
CLEAR WS 


Left Argument: DL 


This is a variable shared with the system. It is-the array val- 
ue of the left argument of a function whose execution was 
interrupted by an error. (QZ has no value in a clear workspace, 


OL is set whenever an error occurs in a primitive dyadic func- 
tion. It is effectively automatically local to a function 
called by a line entered in immediate execution, and exists 
only while the statement in error is suspended. QL has no value 
after an error in a monadic function. 
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Example: 


Y ZF R 
C1] zZze(Rx1 2)+3 4 5 
| v 


F 10 
LENGTH ERROR 
F(1] Ze(Rx1 2)+3 4 5 


A A 
OL 
10 20 
OL + 10 20 30 
+10 
13 24 35 


If there is not enough room in the workspace (DWA) to suspend 
the statement in error, then YS FULL will be reported, DEM will 
be set to a character matrix of shape 3 0, and OL and OA will 
not be set. =r 


Refer to the description of system variable OR for further 
information about error handling. 


= Line Counter: OLC 


This is a simple integer vector of line numbers of defined 
functions and operators in execution or halted (suspended or 
pendent), with the most recently activated line number first. 
The value in a clear workspace is 10. The system re-specifies 
OLC, so that specifying it or localizing it has no effect. 
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Examples: 


VG 
C1) 1 
[2] 2 
C3] R 
v 
vV H 
[1] 10 
[2] DLC 
[3] 30 
y 
G 
1 
2 
10 
2 3 
30 


If a function is halted, then there is one element of DLC for 
each line of the display reported by )SI or )SINL which con- 
‘tains a name (each line which is not immediate execution). 


Example: 


V ZeF R 
[13 Ze(Rx1 2)+3 4 5 
y 


F 10 
LENGTH ERROR 
FC1] Ze(Rx1 2)+3 4 5 
A A 


oze 
1 
)SI 
F[1] 
k 
Latent Expression: OLX 


This may be any Simple character scalar or vector representing 
an APL statement that is automatically executed (by OLX) when- 
ever the workspace is activated (with the LOAD system 
command). It may be used to display a message, to invoke an 
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arbitrary function, or to resume an interrupted program. The 
value in a clear workspace is ''. 


Matrix Divide Tolerance: OMD 


This may be any simple scalar non-negative real number. It is 
the tolerance implicitly used in determining the algebraic 
rank of a matrix in the functions Matrix Divide (LHR) and 
Matrix Inverse (BR). Refer to the descriptions of these func- 


tions for more details. The value in a clear workspace is 0. 


If [MD is set to a non-zero value, and Risa singular matrix, 
then a pseudo inverse will be computed by BR. 








National Language Translation: ONLT 


This may be a simple character vector representing the name of 
a national language. It determines in what language error mes- 
sages will be reported. It also indicates what language in 
addition to the default will be accepted for system commands: 
(See "Appendix I. National Language Translations" on page 
335). The initial value at the beginning of a session is 
installation dependent. 


The meaningful values are: 


‘DANSK! Danish 
‘DEUTSCH! German | 
tENGLISH' English 
'ESPANOL' Spanish 
'FRANCAIS! French 
'NORSK! Norwegian 
' SUOMI! Finnish 

t SVENSKA' swedish 


If ONLT is set to other than one of these character vectors, 
then English is assumed. | 0 


tt English 
'MARTIAN" English 


Leading and trailing blanks are ignored in a setting of DNLT. 
Refer to the discussion of the monadic Event Simulation system 
function on page 183 for an example. 

ONL? is a session variable. That is, if a valid global value is 
assigned, then it will persist over a workspace clear or load. 
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If an invalid value is assigned, then it is ignored by the sys- 
tem, and OVLT is reset to t! » Which defaults to English. 


| Printing Precision: OPP 


This is a simple positive integer scalar. It is the number of 
= Significant digits in the default display of numbers. The val- 
ue in a clear workspace is 10. 


The minimum value for OPP is 1. The maximum value for OPP is 
18. If OPP is 18, then all available precision will be dis- 
played. | 


OPP is an implicit argument of the function monadic Format (¥), 


Prompt Replacement: DPR 


This is a simple character scalar, or vector of shape 0 or 1, 
It controls the interaction between an assignment (the 
prompt), and a successive reference (the response) of the Char- 
acter Input/Output System variable (M). The interaction is 
such that the first part of the response vector is a transfor- 
mation of the prompt. The second part is the terminal input. 
The prompt, as assigned, either may or may not be returned as 
part of the response, depending on the value of OPR. The value 
in a clear workspace is 1p' t, which means to replace unchanged 
elements of the prompt with blanks. | 


If OPR is a character scalar or 1-element vector, then the 
prompt is not returned as part of the response, Instead, 
unchanged elements of the prompt are replaced by the character 
in DPR. | 


If OPR is an empty vector ('*), then unchanged elements of the 
prompt are returned as part of the response. 


Refer to the Character Input/Output system variable on page 204 
for examples. 
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Printing Width: DPW 


This is a simple positive integer scalar. It controls the 
presentation of system output. Its minimum value is 30. 


If an attempt is made to display an array wider than OPV, then 
the display will be folded at or just before the OPW width. The 
folded parts will each be indented six spaces. The folded 
parts will each be separated from the first part by N blank 
lines, where N is Of~1+ppA. | 


Examples: 
OPW + 30 


30p!'A! 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


31p'A! 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
A 


32p!A! 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AA | 


Rows of a matrix are folded together: 


932 2p'of)' 
000000000000000000000000000000 
OD00000000000000000000000pob00 


Ooo 


00 
Planes of a multi-dimensional array are folded together: 


y 32 2 2p'o0°A' 
000000000000000000000000000000 


ooooo ono... ...... no. o.n.o.o..o.oc.O 


pogoogooccoconpoooporo0000000u 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


OO 


oo 


00 
AA 
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The display of a simple array containing numbers may be folded 
at a width less than DPW so that individual numbers are not 
split, 


Example: 


2 3 °.e@ 10 20 30 
3.321928095 4,321928095 
2.095903274 2.726833028 


4.906890596 
3.095903274 


If OPW is small and OPP is large, then the display of some com- 
plex numbers in a Simple array may be split. If OPW is at least 
13+2xOPP, then individual numbers in a simple array will not be 
split. Numbers in a non-simple array may be Split with any val- 
ue of OPP, 


The value of OPW has no effect on the display of system 
messages, or on the result of the primitive monadic Format 
function (yv), 


OPW is a session variable. That is, if a valid global value is 
assigned, then it will persist over a workspace clear or load. 


Right Argument: OR 


This is a variable shared with the system. It is the array val- 
ue of the right argument of a function whose execution was 
interrupted by an error which was not a SYNTAY ERROR or a VALUE 
ERROR. OR has no value ina clear workspace, 


OR is set whenever an error occurs in a primitive function. It 
is effectively automatically local to a function called by a 
line entered in immediate execution, and exists only while the 
statement in error is suspended, 


220 APL2 Language Manual 








a 











Example: 


Y ZF R 
C1) Z+(Rx1 2)+3 4 5 
v 


F 10 
LENGTH ERROR 
FC1] Ze(Rx1 2)+3 45 
A A 


OR 

3045 
OR +€3 4 
>10 

13 24 


Note that the branch expression >10 caused the suspended func- 
tion + to be restarted at the point of the error with the new 
value of the right argument. | 


Everything in the statement to the right of the leftmost caret 
in the error report was already evaluated prior to the error, 
and was not evaluated again after the branch >10. This may be 
especially important if the statement in error contains shared 
variables or defined functions or operators. 


If there is not enough room in the workspace (DWA) to suspend 
the statement in error, then WS FULL will be reported, DEM will 
be set to a character matrix of shape 3 0, and OL and OR will 
not be set. 


Random Link: ORL 


This is a simple positive integer scalar not greater than 
=2+2x31. It is used and set implicitly by the functions Roll 
and Deal (?). The value in a clear workspace is 16807. 


Example: 


DAL 
16807 

?2 
= ORL 
282475249 


Repeatable results can be obtained from the functions Roll and 
Deal if DRL is set to a particular value first. 
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Example: 


ORL « 13 

2 10 100 1000 10000 
1 71 823 9625 

2 10 100 1000 10000 
10 85 612 8253 


ORL + 13 

? 10 100 1000 10000 
1 71 823 9625 

? 10 100 1000 10000 
10 85 612 8253 


Shared Variable Event: OSVE 


This is a simple non-negative scalar integer shared with the 
System. The behavior depends upon whether it is being assigned 
or referenced: 


If OSVE is assigned a positive value N, then a shared variable 
event will be scheduled to occur after approximately N seconds. 


If OSVE is assigned 0, then a shared variable event will not be 
scheduled to occur. 


If OSVE is referenced, then execution is suspended until the 
occurrence of a shared variable event. The suspension may be 
interrupted by a strong interrupt, | 


After a shared variable event has occurred, execution. is 
resumed, and a value is returned indicating the number of sec- 
onds remaining in the previously specified (positive) wait 
time. If the previously assigned time was 0, then the returned 
result is 0, 


When OSVE releases after being referenced, any shared variable 
event previously scheduled by a OSVE assignment is cancelled. 


The action of DSVE is such that if specified with a non-zero 
value, then referencing it invokes a wait with a time out, 


Shared variable events include the changing of the state of any 
shared variable, Localizing OSVE has no effect. The value ina 
clear workspace is 0. The value in a freshly loaded workspace 
is 0. | 
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Terminal Control Characters: DIC 


This is a simple three element character vector. 
The element definitions are: 

orcrt] - backspace 

Orc(2] - new line (carriage return) 


OTC[3] - line feed 


The system re-specifies OTC, so that specifying it or localiz- 


ing it has no effect. Elements of DTC beyond 3 are not defined 
but are reserved. | 


Time Stamp: DTS 


This is a simple 7-element integer vector. 
The element definitions are: 

Ors(1] - the current year 

Ors(2) - the current month 

OTs(3) - the current day 

OTSC4] - the current hour 

OTSt5] - the current minute 

OTs(6] - the current second 

07s[7] - the current millisecond 


The value of [TS depends on the value of the Time Zone system 
variable (DTZ). 


Example: 
OTS 
1981 7 4 19 13 17 210 


The system re-specifies DTS, so that specifying it or localiz- 
ing it has no effect. 
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Terminal Type: OTT 
This is a simple integer scalar. It isa code for the type of 
terminal in use. 
The possible values are: 
0 - Indeterminate 
1 - Correspondence 
2 - PTTC / BCD 
4 - 3270 with APL feature 
3 - 3270 without APL feature 


The system re-specifies OTT, so that Specifying it or localiz- 
ing it has no effect. 


Time Zone: OTZ 


This is a simple real numeric scalar. It is the difference in 
hours between local time and Greenwich mean time (GMT). It may 
be fractional. 


The value of DTZ affects The times reported by OTS and various 
system commands. DTS must be in the range ~11<97zZ and OTZ<13, 
For example, “5 is Eastern Standard Time, and 78 is Pacific 
Standard Time. 


ŪTZ is a session variable. That is, if a valia global value is 
assigned, then it will persist over a workspace clear or load. 
If an invalid value is assigned, then it is ignored by the sys- 
tem. The initial value at the beginning of a session is instal- 
lation dependent, 


User Load: DUL 


This is a simple non-negative integer scalar. On systems where 
it can be determined, it is the number of users on the system. 
Otherwise it is 0. 


The system re-specifies OUL, so that specifying it or localiz- 
ing it has no effect. 
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Workspace Available: OWA 


This is a simple non-zero integer scalar. It is the available 
space in the active workspace given as the number of bytes or 
characters it could hold. Due to the nature of the APL2 imple- 


mentation, the value of QWA can be different in situations that 
appear the same. | 


The system re-specifies DWA, so that specifying it or localiz- 
ing it has no effect. 
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` SYSTEM LABELS 


The APL2 system labels identify variants of a defined function 
or operator. When a variant is called, the function or opera- 
tor is activated with relevant arguments beginning at the cor- 
responding system label (which may or may not be statement 1). 
Subsequent execution proceeds normally. 


system labels may appear at the beginning of any statement in a 

defined function or operator. A system label does not affect 
the execution of the statement on which it appears. If a vari- 
ant is not called, then a system label has no effect other than 
that of anormal label. A defined function or operator may have 
more than one system label if they are different. 


System labels have distinguished names which begin with a quad 


(0). 


OFL: Pill 
OID: Identity 


Figure 13. System Labels 
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[marron 


This label denotes a fill variant of a defined function or 
defined operator. It is related to valence, which is discussed 
further in "Function and Operator Definition" on page 275. In 
the following discussion: 


F1 is a defined function with valence 1 0 
F2 is a defined function with valence 2 0 
011 is a defined operator with valence 1 1 
012 is a defined operator with valence 1 2 
021 is a defined operator with valence 2 1 
022 is a defined operator with valence 2 2 
F is a function operand of an operator 


G is a function or array operand of an operator 


The £i11 variant is activated in six cases: 


fa 


228 


When a monadic function is applied through the Each opera- 
tor to an empty array: E 


F1” R 
F 011" R 
F 012 G” R 


where OecpR 


When activated at OFL, the argument of the (derived) func- 
tion is >R., 


When a dyadic function is applied through the Each operator 
to empty arrays: 


L F2” R 
L F 021” R 
L F 022 G” R 


where OepL and OepR 
or OepL and O=ppR 
or 0epR and O=ppeL 


When activated at OFL, the arguments of the (derived) func- 
tion are e>L and e>R, 


When a monadic function is applied through the Bracket Axis 
operator to an empty selection of arrays: 


FICAZ3AR] R 
F Ol1LAZ¡ AR) R 
(F 012 G)CAZ3AR] R 


where O0el(-"(1ppR)eAR)/0OR 
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When activated at DFL, the argument of the (derived) func- 
tion is e>c[ARJR. 





4. When a dyadic function is applied through the Bracket Axis 
operator to an empty selection of arrays: | 


L F2(AZ;AL;AR]J R 
L F 021LAZ:¡AL;¡AR] R 
L (F 022 G)[AZ;AL;AR] R 
where Oe(~(199R)€AR)/OR or Del“(1ppL)EAL)/pL 


When activated at OFL, the arguments of the (derived) func- 
tion are e>c[ALJL and e>c[ARJIR. 


5, When a dyadic function is applied through the outer product 
operator to an empty array: 


L °.F2 R 

L °.(F 021) R 

L o°. (F 022 G) R 
where OepL or OepR 


When activated at DFL, the (derived) function is executed 
once, with arguments ce>L and ce>R. 





®© 6. When a dyadic function is applied through the inner product 
operator to certain empty arrays: | 


L F2.F2 R 
L F2.(F 021) R 
L F2.(F 022 G) R 


where Oe ~1+oL or Oel+tpR 
When activated at OFL, the right operand (derived) func- 


tion is executed once, with arguments c>c[(0<ppL)/ppL]L 
and e>c[(0<ppR)/1 TR. 





If Fi, F2, 011, 012, 021, or 022 above does not contain a fill 
expression denoted by the system label OFL, then its described 
application through the Each, bracket axis, or outer product 
operators to an empty array causes a DOMAIN ERROR. 


Example: 


yV ZeL RESHAPE R 


[1] ZeLpR 

[2] >20 

[3] OFL: ZeLpr+10 
y 
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TARESHAPE + 1 3 





Z + 5 RESHAPE[;32] 2 20123 4 
RESHAPE(1] 121 2 1 
RESHAPE[1] 3 4 3 4 3 


eZ 
2 5 

Z 
1212 1 
343 4 3 


Z + 5 RESHAPE[33;2] 1 291 2 
RESHAPE(1] 1 2.1 2 1 


eZ 
1 5 
Z 
12121 
Z +e 5 RESHAPE[3;;2] O 2p0 
RESHAPE[ 3] 
eZ 
00 
2 


Trace control (TA) is described in "Debug Controls" on page 
281. 


Example: | i © 


V ZeL JOIN R 

[1] Z+L,7 7 7,R 

[2] >0 

C3] DFL: Z+L,8 8 8,R 
y 


TAJOIN + 1 3 


Z 
JOINT1J. 
JOIN(C1) 
JOIN[1] 
JOIN[1] 
JOIN[1] 
JOIN[1] 

pz 
235 


OIN 3 4 5 


SN a 
SSE 
SUSY O 


oo 
3 
y 
5 
3 
Y 
5 


NNN a 4 


ah oh oh 
YNNN 
N TUW 





Yyy yyy 
NJ J Yyyy 


NNN 
NN SJ 
ON Eu 
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Z+ 14 2 °.JOIN 0p0 
JoINC3] 08880 

oZ 
2 05 


Z € (0p0) 
JOIN[3J] 0 8 8 8 
pl 

03 5 


JOIN 3 4 5 


O 


o 


Z € (000) 
JOIN[3] 0 8 8 8 
pZ 

005 


.JOIN 0p0 


Oo 


Identity: OID: | 


This label denotes an identity variant of a dyadic defined 
function, or defined operator whose derived function is 
dyadic. It is activated when a function is applied through the 
Reduce operator to an empty array: 


F2/ R 

F2/CA] R 

F 021/ R 

F 024/CA] R 

(F 022 G)/ R 

(F 022 G)/CAJ] R 


where: 


O=714+pR or O=(pR)[A], as appropriate 

F2 is a defined function with valence 2 0 

021 is a defined operator with valence 2 1 

022 is a defined operator with valence 2 2 

F is a function operand of an operator 

G is a function or array operand of an operator 


Valences are discussed further in "Function and Operator Defi- 


nition" on page 275. 


If F2, 021, or 022 above does not contain an identity 
expression denoted by the system label OID, then its described 
reduction of an empty array causes a DOMAIN ERROR. Identity 


expressions for primitive functions are given in the dis- 
cussion of the Reduce operator on page 160. 


When activated at OID, the right argument of the (derived) 


function is the empty array R, and the left argument is the axis 
A of reduction (explicit or default). 
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The following example mimics the primitive function Divide, 
except that the identity element is 7. 


V ZeL DIVIDE R 

[1] ZeL+R 

[2] >20 

[3] DID: Ze((L*ippR)/pR)p7 
y 


TADIVIDE + 1 3 


| DIVIDE/ 2p3 
DIVIDE[1] 1 
4 


DIVIDE/ 1p3 


DIVIDE/ 0p3 
DIVIDE[3] 7 
7 


DIVIDE/ 3 2p3 
DIVIDE[1] 1 1 1 
1 1 1 


DIVIDE/ 3 1p3 
333 


DIVIDE/ 3 0p3 
DIVIDE(3] 7 7 7 
777 


Trace control (TA) is described in "Debug Controls" on page 
281. 


Reductions of empty arrays are implied by certain inner pro- 
ducts F.G, where the result of an application of function G is 
empty along its last axis. Such inner products require that if 
F is a defined function, or is directly derived by a defined 
operator then it must contain the system label DID. 


Example: 


(2 000) DIVIDE.x O 3p0 
DIVIDE[3] 
DIVIDE[3] 
DIVIDEL[3] 
DIVIDE[3] 
DIVIDEL3] 
DIVIDE(3] 
777 
777 


NN NSS SJ 
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The following example uses the identity element 7 in the result 
of any reduction of an empty array through the defined operator 
IE. The shape of the result is determined in the same way as 
for pervasive functions (the rank of R is reduced). 


y ZL (F IE) R 
[1] ZL FR 
[2] +0 
C3] DID: 2+((L*1ppR)/pR)07 
y 
TAIE + 1 3 
+IE/ 203 
IE(1] 6 | 
+IE/ 103 
-= +IE/ 003 
IEC3] 7 
7 
+IE/ 3 2p3 
IE(1] 6 6 6 
+IE/ 3 193 


+IE/ 3 0p3 
IE[31 7 7 7 
777 
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SYSTEM COMMANDS 


System commands control the APL2 session. They are prefixed by 
a right parenthesis. They may be invoked only from the key- 
board and not from within defined functions or operators. 


In the descriptions that follow, the system commands are given 
in English, and brackets ([J) indicate that the enclosed item 
is optional to the system command. System commands in other 
national languages will be accepted after an appropriate set- 
ting of the National Language Translation system variable 
(ONLT). The various possible trouble reports are described in 
more detail in "Error Messages" on page 253. 
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CLEAR < , : e 

) CONTINUE no, ee BO , : eae ae 
)COPY > 0.09 98900008. 
DROP —> , o e : o o 
JEDITOR <> < *. » : ' ; 
)ERASE SS ....09,.80., i : 
JENS EL a E AAA 

)IN > .... 909000 ° © 0 
)LIB > ... ®®, 90... 
)LOAD o, © © ; oo... . 
)MSG 1 .., ®©.. ; ; ; 
)MSGN E &% ‘e’. BES coe a ; 
)NMS > ....@0, Deseo : 
)OFF <> .. 0 de dde We xe ‘ 
)OPR EN. &: @ oo OO 4 da 
)OPRN > ....80 ee. r 
)OPS > .. 09 A ie & F 
)OUT -_ š .-—..80....00909, 
)PBS —-> ....86 Ar x a A š 
)PCOPY > ...8868 , , @ @ @ @ ®@ 
) RESET A eS we Ree eS 
)QUOTA So ....0, ; ae o a 
) SAVE DD ee ee ®, OQ, , 
)SI 4k we ee Owe & « e i o % 
YSINL >, .. 0 co. ae ee We ere 
SIS > ....e @, E eh ee. Gg. 
) SYMBOLS Ce. owe. a ®, ; oa ae 
)VARS noo, E ee ee. GX 
\WSID o, E dr > Bee 


IMPROPER LIBRARY REFERENCE d 
INCORRECT COMMAND 
NOT COPIED 
NOT FOUND 
NOT ERASED 
NOT SAVED, . 
SI WARNING 
SYSTEM LIMIT 
WS FULL 
WS LOCKED 
WS NOT FOUND 


: 












Figure 14. System Commands and Common Trouble Reports 
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)CLEAR [size] | | 


This command activates a clear workspace having no name, and 
gives the report CLEAR WS. The previous active workspace is 
lost. That is, all shares are retracted, the contents of the 
active workspace are discarded, and the system variables DUCT, 
DEM, DET, DFC, OJO, OIR, OL, OLC, OLX, OMD, OPP, OR, OAL, and 
OSVE are set to standard initial values. (Unless stated other- 
wise, all examples given in this manual assume the standard 
initial values of these system variables.) 


on some systems, the size of the clear workspace may be speci- 
fied. 


)CONTINUE [HOLD] i 


This command replaces a stored private workspace named 
CONTINUE with a copy of the active workspace, and then performs 
)OFF [HOLD]. When the next APL2 session is begun, the work- 
space named CONTINUE is automatically loaded. Some systems 
permit this startup behavior to be modified by an appropriate 
option. 


)COPY [library] workspace [:C(password]] [names] 


This command brings all or selected global APL2 objects (vari- 
ables, defined functions, and defined operators) froma stored 
workspace with the given name [in the given library, and having 
the given password]. A stored workspace is one which has been 
previously stored with the system command )SAVE. 


If the name list is not included in the command, then all 


objects in the stored workspace are copied. If the active 
workspace contains objects with the same name as any that are 


copied, the old ones are replaced. If the old objects are not 
to be replaced, then use the system command )PCOPY. 


If any objects are successfully copied, the system reports 


SAVED, followed by the time, date, and time zone when the 
stored workspace was last saved. | 


If the name list includes objects that are not found in the 


stored workspace, then NOT FOUND: is reported, followed by a 
list of such names. | 
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If the name list includes objects that that will not fit in the 
active workspace, then WS FULL and NOT COPIED: are reported, 
followed by.a list of such names. 


If the name list includes the name of a simple character 
scalar, vector, or matrix enclosed within parentheses, then 
its rows are interpreted as APL2 names, and these objects are 
copied instead of the matrix itself. The matrix may, however, 
contain its own name. This is called Indi rect Copy. It offers 
a convenient way to copy a group of objects simultaneously. 
Indirect lists may not be nested. 


Example: 


ONE+2 3p'ONETWO! 

TWO 

THISe2 

THAT+¢3 

GROUP¢2 4o'THISTHAT! — 
THESE<1 2 3 | 

MORE+3 So'MORE THESETHOSE' 


)SAVE MINE 
10.13.50 7/04/80 (GMT-5) 
)CLEAR 
CLEAR WS 


)COPY MINE ONE (GROUP) (MORE) 
SAVED 10.13.50 7/04/80 (GMT-5) 
)VARS 
MORE ONE THAT THESE THIS 


If the name list includes indirectly listed names which are 
either invalid, or are not found in the stored workspace, then 
NOT FOUND is not reported for those objects. | 


If a copied object replaces a shared variable, then its share 
is retracted. If a copied object replaces a defined function 
or operator which is pendent or suspended then SI WARNING is 
reported. 


Stop and Trace controls are not copied. 


If there is no workspace with the given name [in the given 
library], then WS NOT FOUND is reported, and the active work- 
space is not affected. If there is a workspace with the given 
name, but the given password is incorrect, then WS LOCKED is 
reported, and the active workspace is not affected. If the 
workspace is not locked, then password must be omitted in the 
command, and the colon (:) may be omitted. | 


A library specification must be a positive integer. The 
library number defaults to your private library. (See "Appen- 
dix H. APL2 Under CP/CMS" on page 333.) If you are ineligible 
to use the specified library, then IMPROPER LIBRARY REFERENCE 
is reported, and the active workspace is not affected. 
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)DROP [library] workspace [:[password]] 


This command removes the copy of the stored workspace with the 
given name [in the given library] if it exists, and if you are 
eligible to drop it. You do not need a password to drop a 
locked workspace. On some systems, you may specify a write 
password. | i 


If the workspace is successfully dropped, the system reports 
the current time, date, and time zone. 


A library specification must be a positive integer. The 
library number defaults to your private library. (See "Appen- 
dix H. APL2 Under CP/CMS" on page 333.) If there is no work- 
space with the given name [in the given library], then YS NOT 
FOUND is reported. If you are ineligible to drop workspaces 
from the specified library, then IMPROPER LIBRARY REFERENCE is 
reported. | | 


EDITOR [editor] 


If an editor number is supplied, then this command sets up sub- 
sequent invocations by the v or ¥ characters of the specified 
editor: i 


1 - the default APL2 editor 


2 - the extended APL2 editor, with full screen display 
processing 


If an editor number is not supplied, then the number of the edi- 
tor currently in force is reported. | 


The editor number is a session parameter. That is, it will per- 
sist over a workspace clear or load. The initial setting is 
EDITOR 1. 


JERASE names | 


This command erases the global objects (variables, defined 
functions, or defined operators) that are specified in the name 
list from the active workspace. If any of the objects are 
shared variables, then their shares are retracted. 
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If the name list includes objects that are either invalid or 
not found, then NOT ERASED: is reported, followed by a list of 
such names. | 


If the name list includes the name of a simple unshared charac- 
ter matrix enclosed within parentheses, then the rows of the 
matrix are interpreted as APL2 names, and these objects are 
erased instead of the matrix itself. The matrix may, however, 
contain its own name. This is called Indirect Erase. It offers 
a convenient way to erase a group of objects simultaneously. 
Indirect lists may not be nested. 


Example: 


ONE+2 3p'ONETWO! 
TWO+2 
THREE+3 
THIS+2 
GROUP+2 4o'THISTHAT? 
JERASE ONE (GROUP) 
)VARS — 

GROUP THREE TWO 


If the name list includes indirectly listed names which are 
either invalid, or are not found in the active workspace, then 
NOT ERASED is not reported for those objects. 


If the name list includes a defined function or operator which 
is pendent or suspended then SI WARNING is not reported. Sus- 
pended or pendent defined functions may be erased. This will 
ot, however, change the definition of a previously invoked 
function in the state indicator. Such a function will retain 
its original definition until its execution is completed, 
Until such time, the previously invoked definition exists on 
the stack only, and it may not be edited. 


Example: 

2OFX 1Ft 11t! 12301 13 
DOMAIN ERROR 
F[2] 2+0 


AA 


)SI 
F[2] 


JERASE F 
1 

) SI 
F(2] 
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+3 


3 
F 
VALUE ERROR 
F 


A 


The command )ERASE with no name list does nothing. 


)FNS [first [last]] | | 


This command lists the names of global defined functions that 
are in the active workspace in alphabetical order. (Alphabet- 
ical order is determined by the Atomic Vector (DAV) character 
sequence in Figure 17 on page 285). All names reported in the 
list begin at a character position which is a multiple of 
eight, so that a multiple-row list will form columns. The 
optional arguments first and last: specify at what points to 


begin and end a partial list. 


Examples: 
= JENS 
MONTHLY QUARTERLY ` TEST -TRY WEEKLY YEARLY 
JENS TR | 
TRY WEEKLY YEARLY 
)FNS T Y 
TEST TRY WEEKLY 


If the specified first word alphabetically follows the speci- 
fied last word, then no list will be reported. 


Example: 


JENS W T 


)IN filename [list] | | : 


This command reads a transfer file of the given name containing 
the transfer forms of APL2 objects, and defines those objects 
locally in the active workspace. The optional list argument 
specifies what objects to transfer. The default is to transfer 
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all of the objects in the file. The names of successfully 
transferred objects are not reported. 


If the specified transfer file does not exist, or if the file 
exists but it is not a transfer file, then no objects will be 
transferred, and NOT FOUND will be reported. If any objects 
are specifically requested but are not found in the transfer 
file, then NOT FOUND: is reported, followed by a list of such 
names. If any objects are specifically requested but have an 
invalid transfer form on the file, then NOT COPIED: is 
reported, followed by a list of such names. | 


The name of a transfer file depends on the operating system 
(See "Appendix H. APL2 Under CP/CMS" on page 333). The trans- 
fer file must contain encodings of transfer forms, like those 
produced by the )0UT system command, or by the MIGRATE work- 
space (See "Appendix D. Migration To/From APL2" on page 323). 


)LIB [library] [:[password]] [first [last]] 


This command lists names of workspaces in the specified 
library. A library specification must be a positive integer. 
It defaults to your private library. (See "Appendix H. APL2 
Under CP/CMS" on page 333.) All names reported in the list 
begin at a character position which is a multiple of eight, so 
that a multiple-row list will form columns. The optional argu- 
ments first and last specify at what points to begin and end a 
partial list. On some systems, you may specify a read 
password. 


If you are ineligible to use the specified library, or if it 
doesn't exist, then IMPROPER LIBRARY REFERENCE is reported. 


JLOAD [library] workspace [:{password]] [size] 


This command activates a copy of a stored workspace which has 
the given name [in the given library, and with the given pass- 
word]. A stored workspace is one which has been previously 
stored with the system command )SAVE. 


On some systems, the size of the loaded workspace may be speci- 
fied. If the workspace size is specified, then there may not be 
a space between the colon and the password. 


If the workspace is successfully activated, the system reports 


SAVED, followed by the time, date, and time zone when the work- 
Space was last saved. Also reported is the size of the work- 
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space being loaded, and the size of the workspace when it was 
last saved (in parentheses). Both sizes include both the used 
and the unused space. 


Loading a workspace retracts any previous variable shares. 


If there is no workspace with the given name [in the given 
library], then WS NOT FOUND is reported, and the active work- 
space is not affected. If there is a workspace with the given 
name [in the given library], but the given password is incor- 
rect, then WS LOCKED is reported, and the active workspace is 
not affected. If the workspace is not locked, then the pass- 
word must be omitted in the command, and the colon (:) may be 
omitted. | 


A library specification must be a positive integer. The 
library number defaults to your private library. (See "Appen- 
dix H. APL2 Under CP/CMS" on page 333.) If you are ineligible 
to use the specified library, then IMPROPER LIBRARY REFERENCE 
is reported, and the active workspace is not affected. 


)MSG user message 


This command attempts to send an arbitrary message to another 
user. If the attempt was successful, then SENT will be 
reported. If the attempt was unsuccessful, then NOT SENT will 
be reported. 


After sending a message, some terminals will prevent you from 
making further keyboard entries until you receive a reply mes- 
sage from the user, or until a weak interrupt is issued. 


Messages can be received any time your terminal is displaying 
output. They can, however, be suppressed by issuing the system 
command )MSG OFF. If this is done, then any user attempting to 
send you a message will receive the report NOT SENT. The system 
command )MSG ON will restore the acceptance of any messages 
sent to you. Temporary reception of messages is permitted dur- 
ing the time that keyboard entries are inhibited after a 
message is sent, even if )MSG OFF has been issued. 


)MSGN user message | | 


This command attempts to send an arbitrary message to another 
user, but does not wait for a reply (see the )MSG command). 
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)NMS [first [last)) | 


This command lists the names of global objects (variables, 
defined functions, and defined operators) that are in the 
active workspace in alphabetical order, along with an indi- 
cation of the name class of each. (Alphabetical order is 
determined by the Atomic Vector (OAV) character sequence in 
Figure 17 on page 285). Each name reported is followed by a 
dot, and an integer indicating its name class: 2 for variable, 
3 for defined function, and 4 for defined operator. These num- 
bers are the same as those produced by the Name Class system 
variable (UNC). The optional arguments first and last specify 
at what points to begin and end a partial list. 


Examples: 


) NMS | 
ASSESS .3 COST .2 DAY .2 WEEK.2 WEEKLY.4 


)NMS CAN DO 
COST.2 DAY.2 


If the specified first word alphabetically follows the speci- 
fied last word, then no list will be reported. | 


Example: 


YNMS DO ASSESS 


This command terminates the APL2 session and the host session. 
If HOLD is included in the command, then only the APL2 session 


is terminated, and control is returned to the host. (See "Ap- 
pendix H. APL2 Under CP/CMS" on page 333.) , 


)OPR message 


This command attempts to send an arbitrary message to the sys- 
tem operator (see the )MSG command). 
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JOPRN message 


This command attempts to send an arbitrary message to the sys- 
tem operator, but does not wait for a reply (see the )MSG com- 
mand). 


JOPS [first [last] 


This command lists names of global defined operators that are 
in the active workspace in alphabetical order. (Alphabetical 
order is determined by the Atomic Vector (DAV) character 
sequence in Figure 17 on page 285). The optional arguments 
first and last specify at what points to begin and end a partial 
list. (Refer to the examples given with the description of the 
)FNS system command). 


)OUT filename [list] | 


This command writes the transfer form of objects in the active 
workspace to a transfer file. The optional list argument spec- 
ifies what objects to transfer. The default is to transfer all 
of the unshared variables, defined functions, and defined 
operators in the workspace. Objects other than these are not 
transferable. The local meaning of such objects is what is 
transferred. The names of successfully transferred objects 
are not reported, 


If any objects are specifically requested but are not found in 
the active workspace, or are not appropriate for transfer, then 
NOT COPIED: is reported, followed by a list of such names. 


System variables may be transferred with )0UT if specifically 
requested. | 


Example: 


youT sv OCT DIO 


The name of a transfer file depends on the operating system 
(See "Appendix H. APL2 Under CP/CMS" on page 333). The trans- 
fer file produces by )OUT contains encodings of transfer forms 
suitable for reading by the )IN system command, or by the 
MIGRATE workspace (See "Appendix D. Migration To/From APL2" on 
page 323). 
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)PBS [character] 


This command reports or specifies the printable backspace 
character. This character is translated to a backspace in ter- 
minal input in certain contexts, so that new members of the 
APLZ character set may be entered from certain terminals which 
do not have them or the backspace. On output, the new APL2 
characters are translated to their common overstrike combina- 
tions, with the backspace showing as the specified character. 
The printable backspace character is effective only on buf- 
fered terminals. 


The printable backspace character may not be a blank. If the 
character is not supplied as part of the command, then the 
printable backspace character is reported. The command )PBS 
OFF will remove the printable backspace character. 


The affected new APL2 characters are: 


| QOAVC116] quad jot 

1 DAvr117)] iota underbar 

€e QOAVC118] epsilon underbar 

0 QAVC205)] squad 

© ODAVC207)] quad backslash 

= QAVC226] equal underbar 

“ (AV[2373] dotted del 
Example: 

)PBS I 

A € tie ir eI [I] DIM =1_ .1” ! 

pA 
14 

A 


Ore ir er. [I] DIM =1_ .1” 


The overstrike pairs may be entered in either order, with an 
intervening printable backspace. 


Example; 


+ tor) _r1 _re JIC MOD _I= “I. ! 
A,= B 


ft =- 


B 
A 


The printable backspace character is effective only in the con- 
text of these new APL2 characters. 
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Example: 


Ce tarIy! 
oC 
3 
C 
MY 
)PBS 8 
Á 
OS 18_ €&_ [6] DEN =6_ .E” 
)PBS OFF 7 
A 
HSBriceODNE* 
C 
AIt 


The printable backspace character is a session parameter. That 
is, it will persist over a workspace clear or load. The initial 
setting is OFF. 


)PCOPY [library] workspace [:[{password]] [names] 


This command brings all or selected global APL2 objects (vari- 
ables, defined functions, and defined operators) from a stored 
workspace with the given name [in the given library, and having 
the given password]. A stored workspace is one which has been 
previously stored with the system command )SAVE. 


This command is the same as )COPY, except that if the active 
workspace contains objects with the same name as any that are 
requested to be copied, they are not copied, and the old ones 
are not replaced. The names of such directly specified objects 
are reported following the message NOT COPIED:. The names of 
such indirectly specified objects are not reported. Refer to 
the description of the )COPY system command for more details. 


This command reports information about the availability of 
your private library, workspaces, and shared variables, in the 
form: 
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LIB | TOTAL FREE REMAINING 


WS DEFAULT MAX MAXIMUM 
SV NUMBER SIZE SIZE 
Where: 


TOTAL is the total amount of space (in bytes) that is in 
your library. 


REMAINING is the remaining amount of space (in Bytes) that 
is left in your library for saving. 


DEFAULT is the default size (in bytes) of the active work- 
space. 


MAXIMUM is the maximum size workspace (in bytes) that may 
be requested (as with )CLEAR or )LOAD). 


NUMBER is the maximum number of variables which may be 
simultaneously shared. 


SIZE is the size (in bytes) of the shared memory. 


Example: 

)QUOTA 
LIB 2400000 FREE 1800000 
WS 380928 MAX 380928 
SV 88 SIZE 32768 


) RESET | 


This command clears all suspended and pendent statements and 
editing sessions from the state indicator. This is equivalent 
to entering Abort statements (>) until the state indicator is 
clear. )RESET also purges and contracts the internal symbol 
table. | 


Because of their effective localization to functions in lines 
of immediate execution, the system variables Event Message 
(DEM) and Event Type (DET) are reset to their initial values in 
a clear workspace. Also, the values of the system variables 
Left Argument (OL) and Right Argument (UR) are removed. 
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| )SAVE [[ library] workspace [:[password]]] 


This command stores a copy of the active workspace with the 
given name [in the given library, and optionally with the given 
password]. Current values of any shared variables are saved in 
the stored copy. If the workspace is successfully saved, the 
system responds with the time, date, and time zone when the 
workspace was saved, and the workspace name if it was omitted 
from the command. 


If the library number, workspace name, or password are omitted, 
then they are supplied from the current workspace identifica- 
tion. (See the )WSID command, and "Appendix H. APL2 Under 
CP/CMS" on page 333.) 


) SAVE also purges and contracts the internal symbol table. 


) SI 


This command reports the current state indicator. This is a 
list of the calling sequence of defined functions and operators 
(and their pertinent line numbers) which led to the current 
state. The report includes one line for each suspended or pen- 
dent defined function or operator, | 


Immediate execution statements are indicated in the list by a 
star (*). Suspended defined functions or operators are either 
at the top of the list, or just below a star in the list. Other 
defined functions and operators in the list are pendent. 


Examples: 


VF 
[1] 1 
[2] G 
[3] 3 

v 


vG 
C1] 3+0 
y 


F 
1 
DOMAIN ERROR 
GL[1J] 3+0 
AA 
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) SI 





G(1J 
FC2) 
* 
12434945 
LENGTH ERROR 
1 2+3 45 
A A 
)SI 
xk 
G[1] 
F[2] 


)SINL | 


This command reports the current state indicator, and name 
lists of those names local to each suspended or pendent defined 
function or operator. (See also the )SI system command. ) 


Example: 





VF;A B 
C1] A4411 
[2] G 
[3] Bet 
Y 


VG;C DE 
C1] £:3+0 
Y 


F à 
DOMAIN ERROR 
GC1J 3+0 

AA 


)SINL 
GCI] CDEL 
F[2] A B 


* 
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This command reports the current state indicator, and also 
lists the statements which were being executed at the invoca- 
tion of each line, as well as an indication of where in the 


statements execution has proceeded. (See also the )SI system 
command.) | 


Example: 


VX¢F 
[1] 1 
[2] XeGx2 
C3) 3 

y 


VZ+G 
[1] Ze3:0 
y 


1+F 
4 
DOMAIN ERROR 
G[1J] 3+0 

AA 


. SIS 
G[1J] Ze3+0 
AA 
F[2) X+€Gx2 
AA 
x 1+F 
AA 


)SYMBOLS [number] 


If the number is specified, then this command expands or con- 
tracts the internal symbol table to at least the given number 
of slots. The symbol table is automatically expandable, but 
system efficiency may be improved by enlarging the it with the 
)SYMBOLS command. A larger symbol table consumes more work- 
space, but may save computation time. Some workspace may be 
reclaimed by contracting the symbol table. 


If the number is not specified, then this command purges and 
contracts the internal symbol table, and reports the number of 
symbols currently in use. This is larger than the number of 
names of variables, functions, and operators in use. 
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)VARS [first [last]] | | 


This command reports the names of global defined variables that 
are in the active workspace in alphabetical order. (Alphabet- 
ical order is determined by the Atomic Vector (DAV) character 
sequence in Figure 17 on page 285). The optional arguments 
first and last specify at what points to begin and end a partial 
list. (Refer to the examples given with the description of the 
JFNS system command). 


)WSID [library] [workspace] [:[password)] 


If the workspace [and optional library and password] is speci- 
fied, then this assigns the given name [library and password] 
to the active workspace. A workspace name must be composed of 
alphanumeric characters, and must begin with an alphabetic 
character. It may be further qualified by the operating system 
in use. A library specification must be a positive integer. 
The library number defaults to your private library. (See "Ap- 
pendix H. APL2 Under CP/CMS" on page 333.) 


If no arguments are specified, then this command reports the 
library (if not your own) and the name of the active workspace 
(without the password). | : i 
Examples: 


YWSID 
CLEAR WS 


\WSID FIRST 
WAS CLEAR WS 


YWSID 2 SECOND :MYKEY 
WAS FIRST 


YWSID 
2 SECOND 
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ERROR MESSAGES 


The APL2 system reports errors with a message. | 

If the error is the result of an attempted invalid execution of 
a primitive, then the default error handling is to halt exe- 
cution, and report: 

1. the error message 

2. the statement which caused the error 

3. An indication of where in the statement the error occurred 
At that point, execution may be resumed or aborted after possi- 
ble corrective action. The system variables Event Message 
(DEM) and Event Type (DET) will contain further information 
about the error. Refer to the discussion of the system vari- 
able OR on page 220 for more details about error recovery. 


Error handling other than the default may be requested by: 


1. assigning attributes to defined functions or operators 
with the dyadic system function Fix (OFX) 


2. using the system function Execute Alternate (OFA) 
3. using the system function Event Simulation (DES) 
The following discussion refers only to the error messages in 
English. Error messages in other national languages can be 
produced after an appropriate setting of the system variable 


National Language Translation (QNLT). See “Appendix I. 
National Language Translations" on page 335. | 
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AXIS ERROR 
CLEAR WS 
DEFN ERROR 
DOMAIN ERROR 

ENTRY ERROR 

IMPROPER LIBRARY REFERENCE 
INCORRECT COMMAND 

INDEX ERROR 

INTERRUPT 

LENGTH ERROR 

LIBRARY I/0 ERROR 

LIBRARY IN USE, RETRY 

NOT AN APL2 WS 

NOT COPIED 

NOT ERASED 

NOT FOUND 

NOT SAVED, TRIS WS IS CLEAR WS 


NOT SAVED, THIS WS IS 


NOT SAVED, WS QUOTA USED UP 
RANK ERROR 

SI WARNING 

SYNTAX ERROR 

SYSTEM ERROR 

SYSTEM LIMIT 


VALENCE ERROR 
VALUE ERROR 


WS FULL 

WS LOCKED 
WS NOT FOUND 
0__ ERROR 


Figure 15. Common Error Reports 
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AXIS ERROR | 


This report is given upon an attempt to either: 





Execute a primitive function or operator with an axis spec- 
ification, but the axis specification is incompatible with 
respect to the particular operation and its argument(s). 


Execute the Bracket Axis operator, but an axis specifica- 
tion is incompatible with respect to the particular func- 
tion and its argument(s). 


Execute DES 5 6 
Examples: 


10+{£7] 1 2 

AXIS ERROR 
10+[7] 1 2 
A A 


$13] 2 3p'ME YOU! 

AXIS ERROR z 
$[3] 2 3p'ME YOU! 
A 


® 10+[357] 1 2 


AXIS ERROR 
10+[3:7] 1 2 
A A 


10+[;] 1 2 

AXIS ERROR 
10+[;] 1 2 
A A 


10+C03555) 
AXIS ERROR 
10+Cs333J 1 
A A 


1 2 
2 


CLEAR WS | 


This report is given when either: 


An APL2 session is begun, and the workspace CONTINUE is not 
automatically loaded. 
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)CLEAR is executed. 
A SYSTEM ERROR occurs. 
OFS O O is executed. 


The active workspace is cleared. That is, all shares are 
retracted, the contents of the active workspace are discarded, 
and the system variables DCT, DEM, DET, DFC, DIO, DIR, OL, DLC, 
OLX, OMD, OPP, DPR, OR, ORL, and OSVE are set to their standard 
initial values, | 


DEFN ERROR 


This report is given upon an attempt to either: 
Enter an invalid v or ¥ command (to enter an editor). 
Enter an invalid edit command (while in an editor). 
Leave an editor by establishing an object which is invalid. 
Eieduts DES 6 1 
Examples: 
v 19 
DEFN ERROR 


v 19 
A 


FVG 

DEFN ERROR 
FVG 
A 


DOMAIN ERROR : 


This report is given upon an attempt to either: 


Execute a primitive function or operator when the 
requested calculation is beyond the range of the system 
implementation, and it does not fall into one of the cate- 
gories of SYSTEM LIMIT. This can occur with some of the 
mathematical functions. | 
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Execute a primitive function with incompatible data type, 
degree of nesting, or range of the argument(s) with respect 
to the function. 





Execute a primitive operator with incompatible operand(s) ‘ 
or argument(s), or both with respect to the operator. 


Execute a defined function or operator which has the error 
conversion execution property and which invokes any 
non-resource error (see "Function and Operator Definition" 
on page 275). 


Execute DES 5 4 
Examples: | 


2 t ME?! 
DOMAIN ERROR 
t'MEt 
AA 


B1 (2 3) 

DOMAIN ERROR 
61 (2 3) 
AA 


~ 609 
& DOMAIN ERROR 

~609 

A A 


1"2 
DOMAIN ERROR 

172 

AA 


ENTRY ERROR | 


This report is given when an invalid character in an input 
statement has been transmitted to or received by the APL2 sys- 
tem. The system prompts with the received valid characters, 
and permits the positions of the invalid characters to be 
filled before re-entry. 
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IMPROPER LIBRARY REFERENCE 


This report is given upon an attempt to issue either of the sys- 
tem commands )COPY, )LIB, JLOAD, )PCOPY, or )SAVE with a 
non-existent or ineligible library number. 


INCORRECT COMMAND | 


This report is given upon an attempt to issue any invalid sys- 
tem command, or any valid system command with invalid 
arguments. i 


Examples: 


) WHY 
INCORRECT COMMAND 


JWSID 13 
INCORRECT COMMAND 


INDEX ERROR | 


This report is given upon an attempt to either: 


Perform Bracket Indexing, Index (J), or Pick (>), where the 
index is invalid with respect to the array being indexed. 


Execute DES 5 5 
Examples: 


1 2 3[76] 
INDEX ERROR 
1 2 3(€° 6) 
A A 
1801 2 3 
INDEX ERROR 


1801 2 3 
A A 
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3J4>1 2 3 

INDEX ERROR 
3J4a1 2 3 
A A 


| 
This report is given when either: 


An interrupt or attention has been received by the APL2 
system during processing. If so, execution is halted as if 
an error had occurred. 


OES 11 is executed, 
Example: 


+111E4 

(strong attention from terminal) 
INTERRUPT : 

+\i1 1E4 

A | | | 
Execution may. be resumed with the Branch expression. 


LENGTH ERROR | | | | 


This report is given upon an attempt to either: 


Execute a primitive function or operator whose argument (5) 
have incompatible length(s) with respect to each other or 
to the operation. | | 


Execute OFS 5 3 
Examples: 
1 2 3+10 20 
LENGTH ERROR 


1 2 3+10 20 
A A 


1 2 3p" 'ABt. 
LENGTH ERROR 

1 2 3p""AB? 

A A 
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If the function is dyadic pervasive, and the arguments are 
nested arrays, then the error may be at a level below the top. 





Example: 


(1 2)(3 4 5)+(10 20 30)(40 50) 
LENGTH ERROR | 


(1 2)(3 4 5)+(10 20 30)(40 50) 
A A 


LIBRARY I/O ERROR 


This report is given when one of the library system commands 
)CONTINUE, )COPY, )DROP, )LOAD, )PCOPY, or )SAVE is used, but 
an internal error prevents successful completion of the opera- 
tion. 


LIBRARY IN USE, RETRY | 





This report is given on some systems when one of the library 
system commands )CONTINUE, )COPY, )DROP, )LOAD, )PCOPY, or 
)SAVE is used, but another user has (temporary) control of a 
shared library, and thus prevents successful completion of the 
operation. 


NOT AN APL2 WS 


This report is given upon an attempt to use the system command 
JLOAD to load something which is other than an APL2 workspace. 
For example a workspace dumped to file because of a SYSTEM 
ERROR may be copied from, but not loaded. 


NOT COPIED 


This report is given when either: 


An object in a name list specified with the system command 
)PCOPY already exists in the active workspace. 
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An object in a name list specified with the system command 
)COPY or )PCOPY does not fit in the active workspace. 


An object in a name list specified with the system command 
)IN has an invalid transfer form in the transfer file. 


An object in a name list specified with the system command 
)OUT is not transferable. | 


The report is followed by a colon and a list of such names, 


NOT ERASED 


This report is given when an object in a name list specified 
with the system command )ERASE cannot be found in the active 
workspace. The report is followed by a colon and a list of such 
names. i 


NOT FOUND 


This report is given when either: 
An object in a name list specified with one of the system 
commands )COPY or )PCOPY cannot be found in the specified 
stored workspace. 


An object in a name list specified with the system command 
)IN cannot be found in the specified transfer file. 


The file specified with the system command )IN cannot be 
found, or is not a transfer file. 


In the first two cases, the report is followed by a colon and a 
list of such names. 


NOT SAVED, THIS WS IS CLEAR WS 


This report is given upon an attempt to issue the system com- 
mand )SAVE when the active workspace has no name. 


Error Messages 261 











Example: 


) CLEAR 
CLEAR WS 
) SAVE 
NOT SAVED, THIS WS IS CLEAR WS 


NOT SAVED, THIS WS IS 


| 


This report is given upon an attempt to issue the system com- 
mand )SAVE name when the given name conflicts with the name of a 
stored workspace, and the name is not the name of the active 
workspace. The report is followed by the name of the active 
workspace. 


Example: 


)JWSID THATONE 

WAS CLEAR WS 
)SAVE 

19.50.10 7/04/81 (GMT-4) THATONE 

)JWSID THISONE 

WAS THATONE 
) SAVE THATONE 

NOT SAVED, THIS WS IS THISONE 


NOT SAVED, LIBRARY FULL 


This report is given upon an attempt to issue the system com- 
mand )SAVE when the allotted storage space for saved workspaces 
has already been filled. | | 


RANK ERROR 


This report is given upon an attempt to either: 
Execute a primitive function or operator whose argument(s) 
have incompatible rank(s) with respect to each other or to 
the operation. 


Execute [DES 5 2 
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Examples: 


10 20+3 4pr12 
RANK ERROR 

10 20+3 4p1r12 

A A 


trot ."2 3p'ME YOU' 

RANK ERROR | 
1x0!,"2 3p'ME YOU! 
A A 


If the function is dyadic pervasive, and the arguments are 
nested arrays, then the error may be at a level below the top. 


Example: 


(1 2)(3 4 5)+(2 3p10 20 30)(40 50 60) 


RANK ERROR 
(1 2)(3 4 5)+(2 3p10 20 30)(40 50 60) 
A A 


This report is given when either: 


A suspended or pendent defined function or operator is 
replaced or severely altered by editing, or by either of 
the system commands )COPY or )PCOPY. | : 


An attempt is made to resume (with 710) a function which is 
not resumable (see below). 


In the case of alteration through editing, )COPY, or )PCOPY, 
there are two possible consequences; l 


1. The function is restartable, but not resumable. That is, 
it may be continued at the beginning of a line from immedi- 
ate execution by entering either OLC, or >L (where L isa 
line number), but not in the middle of a line by entering 
>10. Elements of DLC corresponding to such damaged func- 
tions or operators are not changed. Lines reported by SI, 
)SINL, and )SIS corresponding to such damaged functions or 
operators show negative line numbers. 


2. The function is neither restartable, nor resumable. That 
is, it may not be continued from immediate execution at 
all. An undamaged function or operator which is pendent 
upon a non-restartable function or operator may, however, 
be resumed by entering >0. Elements of OLC corresponding 
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to such damaged functions or operators are set to 0. Lines 
reported by )SI, )SINL, and )srs corresponding to such dam- 
aged functions or operators do not show line numbers, 





The state indicator may be cleared with Abort statements, or 
with the system command )RESET. 


SYNTAX ERROR 


This report is given upon an attempt to either: 
Execute an improper APL2 expression. 
Execute [DES 2 1 
Execute [DES 2 2 
Execute DES 2 3 
Execute DES 2 Y 

Examples: 

2x 
SYNTAX ERROR 


2x 
A 





(1) 
SYNTAX ERROR 

C1) 

A 


3 +2 
SYNTAX ERROR 

3 +2 

A 


A+1 
(BeA)+¢7 © 
SYNTAX ERROR 
(Be4)+7 
A | 
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SYSTEM ERROR 


This report is given when either: 


There is a fault in the internal operation of the APL2 sys- 
tem. 


There is damage detected in the active workspace. 
DES 4 2 is executed. 


In either of the first two cases, the following action is 
taken: l 


1. Several lines of system related information is reported 
which may be a ad to the system manager in correcting 
the problem. 


2. The damaged workspace is saved in a file in your private 
library which in many ways is like a normal stored work- 
space: 


a. It may be listed with the )LIB system command. 


b. It may be capta from with the )COPY or )PCOPY system 
command. 


c. It may be ABRES from the library with the )DROP sys- 
tem command, 


3. The active workspace is cleared. 


The name used to store the damaged workspace is selected from 


the first unused of DUMPNNNN, where NNNN is a four digit 
number. For example, if a SYSTEM ERROR occurs, then the dam- 
aged workspace will be stored as DUMPO001 if that name is not 
already in use. If that name is already in use, then DUMPO002 
will be a candidate, etc. This does not preclude a workspace 
being named DUMPNNNN, saved with the )SAVE command, and used 
normally. 


This report is given upon an attempt to either: 


Use another slot in the system's internal synbol table but 
the table has reached its maximum size. This causes (JET to 
be set to 1 4. The symbol table is automatically expanded 
whenever the system deems it necessary, but there is a max- 
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imum number of names that it can accommodate. The number 
of symbol slots currently in use in the symbol table is 
reported by the system command )SYMBOLS. 3 


Share a variable when the shared variable facility is not 
in operation. This causes DET to be set to 1 5. 


Share more variables, or use more shared variable storage 
than the maximum quota permitted by the shared variable 
interface portion of the APL2 system. This causes DET to 
be set to 1 6. oe | 


Use more shared variable storage than the capacity avail- 
able at the time of need by the shared variable interface 
portion of the APL2 system. This causes DET to be set to 
1 7, 


Create an array of greater rank than the implementation 
limit (see "Appendix F. System Limitations" on page 327). 
This causes DET to be set to 1 8. 

Create an array of more elements or a larger size than the 
implementation limit (see "Appendix F. System Limitations" 
on page 327). This causes DET to be set to ¡A 

Apply certain primitive functions to an array of greater 
depth, (or share such an array) than the implementation 
limit (see "Appendix F. System Limitations" on page 327). 
This causes DET to be set to 1 10. i 
Use a prompt in a prompt/response interaction which is 
longer than the maximum permitted by the terminal in use. 
This causes DET to be set to 1 11. 7 

Use one of the library system commands )COPY, )LIB, )LOAD, 
)PCOPY, or )SAVE beyond a system limitation (such as avail- 
able workspace or library size). This does not cause DET 
to be set. 

Execute DES 1 4 

Execute DES 15 

Execute [DES 1 6 

Execute DES 1 7 

Execute OFS 1 8 

Execute [DES 1 9 

Execute DES 1 10 


Execute DES 1 11 
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Refer to the description of DET on page 208 for more details. 





VALENCE ERROR | | 


This report is given upon an attempt to either: 


Execute a strictly monadic function with both a left anda 
right argument. | 


Execute a strictly dyadic primitive function (one which 


does not have a monadic definition) without a left 
argument. 


Execute DES 5 1 
Examples: 


081 2 3 

VALENCE ERROR 
081 2 3 
AA 


V ZF R 


© 11] zeOnc 'R' 
y 


1 F2 
VALENCE ERROR 

1 F2 

A A 


<1 
VALENCE ERROR 


<1 
AA 


VALUE ERROR | | 


This report is given upon an attempt to either: 


Use a name which is not defined. 


Use a value from a function or operator which does not 
return a value. | 
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Use a numeric constant whose value is too large (like 
18999) or too small (like ~1F999) for the system implemen- 
tation. (Infinitesimal values (like 1E~999) will be con- 
verted to zero.) 


Use a constant whose defining string is too long for the 


system implementation. 
ect DES 3 1 
Execute [ES 3 2 
Examples: 
NOTHING 


VALUE ERROR 
NOTHING 


oF 
VALUE ERROR 

oF 

A 

1E9999 
VALUE ERROR 


1E9999 
A 


This report is given upon an attempt to either: 


Execute any operation (including certain system commands) 
which requires more storage than is currently available. 


Execute [DES 1 3 
In the first case, the remedy may require: 
1. resetting the state indicator, 
2. erasing needless objects, 


3. revising calculations to save space, 
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Example: 
(10p10)p110 


WS FULL 
(10p10)p110 


A 
This report is given upon an attempt issue one of the system 


commands )COPY, )LOAD, or )PCOPY when the stored workspace has 
a different password or key than is given in the command. | 


WS NOT FOUND | 


This report is given upon an attempt to issue one of the system 
commands )COPY, )DROP, )LOAD, or )PCOPY when the specified 
stored workspace does not exist. 


OCT ERROR 


This report is given upon an attempt to either: 


Execute a primitive function which uses OCT as an implicit 
argument when OCT has an inappropriate value or no value. 


Execute DES 4 3 


Examples: 


OCText 

1=2 
OCT ERROR 

1=2 

AA 
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OCT ERROR 
FI1] 1=2 
AA 


OFC ERROR 


This report is given upon an attempt to either: 


Execute a primitive function which uses OFC as an implicit 
argument when OFC has an inappropriate value or no value. 


Display a complex number (which uses DFC as an implicit 
argument) when OFC has an inappropriate value or no value. 


Execute DES 4 4 


Examples: 





OFc+0 
F071 

OFC ERROR 
¥071 
AA 


V F;OFC 
[13 v0J1 
= | 


F 
OFC ERROR 


F(1J] +0J1 
AA 


OIO ERROR | 


This report is given upon an attempt to either: 


Execute a primitive function which uses DIO as an implicit 
argument when OIO has an inappropriate value or no value. 
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Execute DES 4 2 


Examples: 
Oro+tx' 
13 
OIO ERROR 
13 
AA 
v FsOro 
(13 13 
V 
F 
OIO ERROR 
FC1) 13 


AA 


OMD ERROR 


This report is given upon an attempt to either: 


Execute a primitive function which uses [IMD as an implicit 
argument when DMD has an inappropriate value or no value. 


Execute DES 4 6 
Examples; 


OMD<tX! 

82 2p1 0 0 1 
OMD ERROR 

B2 2p1 0 0 1 

AA 


VY F;0MD 
C1) 82 2p1 00 1 
y 


F 
OMD ERROR 
FC1) B2 2p1 001 
AA o 
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OPP ERROR | 


This report is given upon an attempt to either: 


Execute a primitive function which uses DPP as an implicit 
argument when OPP has an inappropriate value or no value. 


Display an array (which uses DPP as an implicit argument ) 
when OPP has an inappropriate value or no value. 


Execute DES Y 1 
Examples: 
OPPetxt 
3.5 


OPP ERROR 
3.) 


OPP ERROR 
FC1J 3.5 
A 


OPR ERROR 


This report is given upon an attempt to either: 


Perform a prompt/response interaction when (JPR has an 
inappropriate value or no value. 


Execute DES 4 7 
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Example: 


Y ZeF RyOPR 
C1) M+R 
(2) Ze 

y 


F 1??! 
? 
DPR ERROR 
Fr2] 20 
A 


ORL ERROR 


This report is given upon an attempt to either: 


Execute a primitive function which uses DAL as an implicit | 
argument when DAL has an inappropriate value or no value. 


Execute DES 4 5 
Examples: 


ORLetX! 
22 
ORL ERROR 
22 
AA 


vV FORL 
C1) ?2 
y 


F 
ORL ERROR 
FC1J ?2 

AA 
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FUNCTION AND OPERATOR DEFINITION 


Functions and operators may be defined with the system function 
Fix (OFX), or with the system editor (see "The APL2 Default 
Editor" on page 291 or "The APL2 Extended Editor" on page 295). 

The first line (line 0) of a defined function or operator is 
called the header. The remaining lines are called the body. 

Certain attributes of a defined function or operator are 
declared explicitly in the header and body. 


VALENCE 


There are three independent valences of a defined function or 
operator: 


1. whether or not it produces an explicit result (0 or 1) 
2. its function valence (0, 1, or 2) 
3. its operator valence (0, 1, or 2) 


The valences are defined in the header (line 0) of a defined 
function or operator. There are 18 combinations of these 
valences, but not all are valid. Figure 16 on page 276 shows 
the combinations. Entries in the table that show parentheses 
in the header are called defined operators (name class 4). 
Entries in the table that do not show parentheses in the header 
are called defined functions (name class 3). | 


The valences of a defined function or operator may be deter- 
mined by inspecting its header (line 0), or from the dyadic 
system function Attributes (DAT). 1 DAT R returns the explic- 
it result, the function valence, and the operator valence (in 
that order). 


A defined operator is specified by divina the definition of the 
derived function (see "Defined Operators" on page 21). The 
function valence of an operator is the valence of the derived 
function. An operator is defined by enclosing its name and its 
operands within parentheses in the header. The argument(s) of 
the derived function of an operator are outside the 

parentheses. | | 


Defined functions and operator with function valence 2 may be 
called monadically (without a left argument). In such a case, 
the left argument will not have a value during execution, and 
its name class will be 0. | 
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P R LPR 
invalid | (F P) R | L (EFE P) R 
invalid (F P G) R L (F PG)R 


ZeP ZeP R ZeL P R 
invalid Z+(F P) R ZL (F P) R 
invalid Zet(F PG) R Z+L (F PG) R 


name of the defined function or operator. 
the left argument of the (derived) function. 
the right argument of the (derived) function. 
the left operand of the operator. 
the right operand of the operator. 
the explicit result. 





Figure 16. Headers of Functions and Operators 


LOCAL NAMES 


The following names, if present, are local to a defined func- 
tion or operator: 


1. the result 

2. the argument(s) 

3. the operand(s) of an operator 
. | 


. additional names in the header after a semicolon (sepa- 
rated by a space) 


5. labels (see the Branch statement on page 148 and "System 
Labels* on page 227) 


The name of the defined function or operator is not local to 
itself, unless it is explicitly listed in the header after a 
semicolon. This permits recursive definitions. 


During execution of a defined function or operator a local name 
will temporarily exclude from use a global object of the same 
name. This is called localization or shadowing. A value or 
meaning given to a local name will persist only for the dura- 
tion of execution of the defined function or operator (includ- 
ing any time that it is suspended or pendent). Names which are 
not local are said to be global. 
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Example of a global variable: 


V E 
[13] Vel 
[2] V 


Example of a local variable: 


l v FE;V 
C1] V41 
[2] V 


EXECUTION PROPERTIES 


A defined function or operator may have four independent exe- 
cution properties: 


1. It cannot be displayed or edited, and its canonical repre- 
sentation is a matrix with shape 0 0. 


2. It cannot be suspended, just as primitive functions 
cannot. | 


3. Weak interrupts will be ignored during its execution. 


4. Any non-resource error within its scope will be converted 
into a DOMAIN ERROR (that is, INTERRUPT, WS FULL, and 
SYSTEM LIMIT are excluded from conversion). 


The default function or operator definition (as provided by the 
system editors) is to have none of these properties. Each 
property may be set independently with the dyadic system func- 
tion Fix (OFX), which is described on page 187. The system edi- 
tors (v) will not remove any execution properties if they have 
been previously assigned. 
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Execution properties are imposed through defined function and 
operator calls, For example, if function F has the 
non-displayable property, and. it calls function G, then the 
non-displayable property will be imposed on function G whether 
or not G itself has the property. In this way, if a locked 
function calls an unlocked function, the unlocked function 
will behave as if it were locked. 


Example of default execution properties: 


)CLEAR 

CLEAR WS | 
0000 OFX 'Ft t1 243 45! 
F 

F 
LENGTH ERROR 
FC1) 1 2+3 45 

A A 


YSIS 
FC1] 1 2+3 4 5 
A A 


Example of the non-displayable execution property: 


)CLEAR 
CLEAR WS — | 
1000 OFX tFt t1 243 4 5 
F 
F 
LENGTH ERROR 
F[1] 


)SIS 
F(1] 


Example of the non-suspendable execution property: 


)CLEAR 
CLEAR WS | 

0100 DFX 'Ft t1 2+3 4 51 
F e 

F 
LENGTH ERROR 
F[1] 1 2+3 45 

A A 


)SIS 
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Example of the error conversion execution property: 


) CLEAR 
CLEAR WS 
0001 OFX 'F' 11 243 4 5! 





F 
F 
DOMAIN ERROR 
FC1) 1 2+3 4 5 
A A 


YSIS 
F[1] 1 2+3 4 5 
A A 


Having all four execution properties set is the same as being 
locked. 
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DEBUG CONTROLS 


There are two facilities useful in analyzing the behavior of 
defined functions and operators, particularly during their 
design. They are trace control and stop control. | 


TRACE CONTROL 


A trace is an automatic display of information generated by the 
execution of each selected line of a defined function or opera- 
tor. When a statement is traced, the following information is 
displayed whenever the statement is executed: 


1. the function or operator name 
2. the line number (in brackets) 


3. the final array value (or branch) produced by that state- 
ment | 

The trace control for a defined function or operator is desig- 

nated by prefixing TA to its name. For example, a trace may be 

set on lines 1, 3, and 6 of a defined function named FN by exe- 

cuting: a | | 


TAFN € 1 3 6 


A trace may be set on all lines of a defined operator named OPR 
(assuming that it has no more than 1000 lines) by executing: 


TAOPR + 11000 
Trace controls may be both set and referenced. A reference to a 
trace control vector returns only valid line numbers (in 
increasing order) upon which a trace has been set. Trace con- 
trols may be not be selectively specified. 


Settings of Trace controls are not relocated as a result of 
line insertion or deletion by the system editor. 


Example: 


V ZeFACTORIAL R 
C1) Z<RI 1 
[2] LOOP:ReR-1 
C3] >(RS1)/0 
C4) ZeZxR 
C5] >LOOP 
y 
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TAFACTORIAL ¢ 15 


FACTORIAL 4 
FACTORIAL[1) 4 
FACTORIAL[2] 3 
FACTORIAL[3] >4 
FACTORIAL[3] 
FACTORIAL[4] 12 
FACTORIAL[5] >2 
FACTORIAL[2] 2 
FACTORIAL[3] +4 
FACTORIAL[3] 
FACTORIAL[4] 24 
FACTORIAL[5] +2 
FACTORIAL[2] 1 
FACTORIAL[3] >0 
24 


More examples of Trace Control can be found in "System Labels" 
on page 227. | 


Names beginning with TA may not be used for any purpose other 
than trace control. 


SIOP CONTROL 


A defined function or operator can be made to stop before a 
selected line is executed. This may be useful in analyzing 
things such as local variables. When a statement is assigned a 
stop control, execution stops just before the statement is to 
be executed, and the following information is displayed: | 


1. the function or operator name 
2. the line number (in brackets) 
Execution may be resumed by entering a branch statement. 
The stop control for a defined function or operator is desig- 
nated by prefixing SA to its name. For example, a stop may be 
set on lines 1, 3, and 6 of a defined function named FN by exe- 
cuting: 

SAFN + 1 3 6 


A stop may be set on all lines of a defined operator named OPR 
(assuming that it has no more than 1000 lines) by executing: 
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SAOPR + 11000 


Stop controls may be both set and referenced. A reference to a 
stop control vector returns only valid line numbers (in 
increasing order) upon which a stop has been set. Stop con- 
trols may be not be selectively specified. 


Settings of Stop controls are not relocated as a result of line 
insertion or deletion by the system editor. | 


Example: 


Y ZeFACTORIAL R 
C1) ZeRT 1 

[2] LOOP: R*eR-1 

[33 — >(Rs1)/0 

(4] ZeZzxR 7 

C5] >LOOP 


y 
SAFACTORIAL + 5 
FACTORIAL 4 
FACTORIAL[S) 
R 
3 
Z 
12 
35 7 
FACTORIAL[5] 
R 
2 
| Z 
24 
25 
24 


Names beginning with SA may not be used for any purpose other 
than stop control. 
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THE APLZ CHARACTER SET 


Figure 17 displays the set of characters in APL2. The posi- 
tions of the characters shown in the table correspond to 
16 16pDAV (the Atomic Vector system variable), and also indi- 
cate their hexadecimal representation in EBCDIC code. The 
hexadecimal representation X of a character gives its row and 
column in the table, A corresponding index to QAV can be 
obtained by the expression 1+161°1+'!0123456789ABCDEF' xX. 


0000000000000000 
012345678 9ABCODEF 







00 00 
10 10 
20 20 
30 7 30 
40 ABCDEFGHI¢.< (+ | 40 
50 JEKELEMNOQORPOA o $ lo 50 
60 /SIUYVYNXYXYZ;i,2ž_>? 60 
70 A" O E O V : + t = A 70 
80 abcdefgh 4 y PL > 80 
90 jk1lmnopgqg >< o +| 90 
AO “8 TUVWX y n U [ 2 0 AO 
BO NE Lp x \ +? VA J # | BO 
CO {ABCDEFGH N A NX CO 
DO +JKLMNO P Q I ! A Da DO 
EO N=ESTOUVVYX Y A X eo EO 
FO 012345678 ¥ © e FO 

000000000 0000000 

O1 23 456789ABCDEF 


Figure 17. The APL2 Character Set 


The italic upper case letters in the character set are dis- 
played as block upper case letters on many terminals and print- 
ers. e | 


Figure 18 on page 286 shows those characters, and their names, 
which have meaning in the APL2 Language. The names of the char- 
acters do not necessarily indicate the operations that they 
represent. Included in the table are the pages in this manual 
Po the main descriptions begin for the use of each symbol in 
APL2. | 


The alphabetic characters are: 


ABCDEFGHIJKLMNOPQRSTUVWXYZ 
ABCDEFGHIJ KLMNOPQRSTUVWXYZ 
AA | 
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”  dieresis 


< 
Ss 
2 
> 
z 
y 
A 
+ 
+ 
x 
? 
A 
€ 
p 
4 
y 
$ 
O 
ok 
> 
e 
A 
r 
L 


wmeAO =s op <| 


156 157 
overbar 

less 

not greater 
equal 

not less 
greater 

not equal 

or 

and 

bar 

divide 

plus 

times 

query 

omega 
epsilon 

rho 

tilde 

up arrow 
down arrow 
iota 

circle 

star 

right arrow, 
left arrow 
alpha 

up stile 
down stile 
underbar 

del 

delta 

jot 

quote 

quad 

left paren 
right paren 
left bracket 
right bracket 
blank 


e. ve — Hr CDUN 


eo 


¿00D aAa- GD rca AHO OOO ¿E -- 


l- la ll 





left shoe 
right shoe 
cap 

cup 

base 

top 

stile 
semicolon 
colon 

comma 

dot 
backslash 
slash 

nor 

nand 

del stile 
delta stile 
circle stile 
circle bksl. 
circle bar 
circle star 
I-beam 

del tilde 
base jot 
top jot 
backslash bar 
slash bar 
cap jot 
quote quad 
quote dot 
domino 
delta underbar 
quad bksl. 
quad jot 
squad 


dotted del 


equal underbar 
epsilon under. 
iota underbar 








Figure 18. Names of APL2 Characters 


The alphanumeric characters include the alphabetic characters, 
and also: 


0123456789_” 


The blank is encoded as X'40*, which is DAV[ 65]. 
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XxX!50! 
X'6C! 


OAVEC 81] 
DAV(109] 


6 


% 


The following are special characters valid in APL2 functions or 
character constants: 


ampersand 
percent 


The following are national use characters and may have differ- 
ent graphics in different countries: 








X'4A*t DAVC 75] ¢€ cent 

X'4F* DAVC 80] | vertical bar 
X'5A't DAVC 91] ! exclamation 
X'5B!t DAV[ 92) $ dollar 

X'5Ft DAVE 96) ~- not 

X'6A' QAVC107] : split bar 

X¥'79! DAV[122] ^ accent 

X'7B' QAVC124)] # pound 

X'7C' QAVCE125}) a at 

X'7F' ([AV[128] " double quote 
X'A1' QAVC162] ~ tilde (national) 
X'CO' QOAVL193] { left brace 

X'pDO' QAVCL209] } right brace 
X'EO' (J4V[225] \ backslash (national) 


The following are non-printable terminal control characters 
not valid in APL2 functions or character constants: 


X'15' QAVC22] new line (carriage return) 
X'16' QAVC23J] backspace 
X'25' ([DAV[38] line feed 


The following are characters reserved for future APL2 use (not 
currently valid in APL2 functions or character constants): 


X'70' QAVCL113] 
X'76' QAV(119] 
X'77' QAVL120] 
X'9C! QAVC157] 
X!*9E!* QAV(C159] 
X'B5' QAVC182] 
X1B9*t QAV(186] 
X'FA'  DAV[251] 





In addition to the reserved characters, X'FF! (QAV[256]), and 


X'00' through X'39' (404DAV) are not valid in APL2 functions or 
character constants. 
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The appearance of some characters may be very Similar even 
though they are distinct: 


X'80' QAVC129] ~ APL tilde 
X'A1' QAVE162] ~ national tilde 


X'B7' DAV[184] \ APL backslash 

X'EO' DAV[225] \ national backslash 
X'79' QAVC122} `^ national accent 

X'DB! QAV(C220] ! APL quote dot 

X'SA' DAVC 91] ! national exclamation 
X'BF' QAVC192] | APL stile 

X'4F1t DAVC 80] | national vertical bar 


Since some terminals may be unable to form certain characters, 
overstrike pair combinations are accepted for all of the com- 
pound APL2 characters, the underscored letters, the lower case 
letters, the special characters, and the national characters. 
Characters in a pair may occur in either order, with an inter- 
vening backspace. The overstrike pair combinations are shown 
in Figure 19 on page 289. Although the national use characters 
may have alternate graphics in different countries, they do not 
have alternate overstrike combinations. 
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o* circle star 
LT  I-beam 
y~ del tilde 
Le base jot 
To top jot 
\- backslash bar 
/- slash bar 
ne cap jot 
'D quote quad 

1. quote dot 

O+ domino 

A delta underbar 
ON quad backslash 
Oe quad jot 

CJ] squad 

dotted del 

equal underbar 
epsilon underbar 
iota underbar 


t, split bar 
~\ accent 
= pound 
Qo at ) 
t” double quote 
~| tilde (national) 
-( left brace 
-) right brace 
| backslash (national) 


A a A N N_ n N 
B_ b B` 0 0_ o 07 
C c Cc” P P p P 
D_ d D™ Q QL a q 
E_ e E R R_ r R 
F_ £ F sS S_ s Ss 
G_ g G T T t P 
H h HK U U_ u U 
I i I7 V Vv. v Vv 
J j J W W w wW 
K_ k K X X_ x Xx” 
L_ 1 L yY Y_ y Y 
M_ m M l L£_ z Z7 
v~ nor & e| ampersand 
A~ nand A +/ percent 
del stile ¢ ceļ cent 
A| delta stile | 1] vertical bar 
o| circle stile t to exclamation 
o\ circle backslash $ S/ dollar 
o- circle bar : ~} not 
UN 

¥ 

a 

tt 

{ 

} 

N 


h m i e cmar M- BD. raro 4AH002>R<$*2%€ RERAN EK RQ r D R lo a 
< 


~ A Hs 


Figure 19. Overstrike Combinations 
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THE APL2 DEFAULT EDITOR 


The APL2 Default Editor will edit (the most local version of) 
defined functions and defined operators. It is entered with 
the y or ¥ command if the system command )EDITOR 1 has been 
issued, or if no )EDITOR command has been issued. 


The Y command may only be used outside the editor to enter edit 
mode. It may take one of the following forms: 


v header 


Begin editing a new defined function or operator with 
the specified header (line zero). 


v name 


Begin editing the existing defined function or opera- 
tor with the specified name. 


y name command 


Begin editing the existing defined function or opera- 
tor with the specified name, and execute the specified 
first bracketed command. | | 


y name command V 


Begin editing the existing defined function or opera- 
tor with the specified name, execute the specified 
bracketed command, and then leave edit mode, returning 
to immediate execution. 


There are several commands available within edit mode in the 
default editor which display or change the object being edited. 
Some of the bracket command forms take line number specifica- 
tions. Any line numbers may be fractional. In the following, L 
and M are single line numbers, and V is a line number list (pos- 
sibly containing redundant blanks): 


CL] text 
Replace or insert the specified text line at the speci- 
fied single line number L. The line number may be 


fractional. Trailing blanks in a comment will be 
deleted. | 


CO] 


Display all of the object text lines. 
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[A] 
Delete all of the object text lines, 


COv] 


Display the object text line(s) mentioned in V, which 
may be in any order, and may contain repetitions. 


{COL-M] 


Display the object text lines in the interval from L to 
M, inclusive, 


CO-L] 


Display the object text lines from the beginning of the 
object to line L, inclusive. 


COL-] 


Display the object text lines from line L to the end of 
the object, inclusive. 


[AV] 


Delete the object text line(s) mentioned in V, which 
may be in any order. 


CAL-M] 


Delete the object text lines in the interval from L to 
M, inclusive. | 


CA-L] 


Delete the object text lines from the beginning of the 
object to line L, inclusive. 


CAL-] 


Delete the object text lines from line L to the end of 
the object, 


(Note that if object lines are unintentionally 
deleted, the editing session can be aborted with the 
[>] command, and the original object will remain 
intact, ) | 


CLOM) 
Edit the single object text line numbered L at position 
M in a detailed manner (this is also called 


super-edit). The edit action depends on the type of 
terminal. 
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[>]. 


On a display terminal: 
1. Display the text line in the input area. 


2. IfM is 0, then place the cursor just after the end 
of the line. | 


If M is not zero, then place the cursor at position 
M of the line. 


3. Accept input to change the line. 


On a non-display terminal: 


1. Display the text line. 


2. I£M is 0, then place the cursor just after the end 
of the line, and accept input to continue the line. 


If M is not zero, then place the cursor under posi- 
tion M of the line, and accept edit characters: 


/ will delete the character above it. 


A digit will insert the specified number of 
spaces immediately to the left of the charac- 
ter above it. | 


A letter will insert spaces in multiples of 
five (5 for A, 10 for B, 15 for C, etc). 


3. If M was not zero, re-display the new line with the 
characters deleted and the spaces inserted. Then 
accept input to fill in the blanks or form over- 
strikes. 


Abort editing the object without establishing it in 
the workspace, and return to APLZ immediate execution. 
(I£ > is entered on a line by itself, then this will be 
treated as if it were [>]). | 


Establish the edited object in the workspace, cease 
editing the object, and return to APL2 immediate exe- 
cution. 


The defined function or operator is not established in 
the workspace until definition is closed with the V. 
If a function is renamed by editing its header, the old 
function is not expunged when the new one is estab- 
lished. 
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Establish the edited object in the workspace, lock it, 
cease editing the object, and return to APL2 immediate 
execution. 


While in edit mode, the system supplies prompts for new 
lines. Any input line which begins with a right parenthe- 
sis (which can be entered by deleting the prompt) will be 
executed as a system command. Any response to the system 
command is not treated as an edit command. Some system 
commands will cause the editing to be aborted. 


Any input line which does not begin with one of the charac- 
ters ) > V ¥ or [ is considered an APL2 statement. It will 
cause editing to be suspended, and the line to be evaluated 
in immediate execution in the active workspace. After the 
interruption, editing will be resumed. 


A closing V or ¥ may optionally end any edit command (except a 
text line ending with a comment), or it may be on a line by 
itself. This means to execute the edit command, and then leave 
edit mode. If the ¥ character is used instead of the V charac- 
ter, then the editor action is the same, but the function will 
be locked. 


The system commands )SI, )SINL, and )SIS will identify with the 


character V the names of defined functions or Operators that 
are suspended in editing. 
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The APL2 Extended Editor will edit (the most local version of) 
defined functions, defined operators, and character vectors or 
matrices. It is entered with the normal V or Y command if the 
system command )EDITOR 2 has been issued. 


The APL2 Extended Editor operates in full screen mode if it is 
used from a display terminal. If the terminal is not a display 
terminal, or if the full screen processor is not available (or 
if it abends), then the editor will operate in non-full screen 
mode similar to the default APL2 editor, except that there will 
be no prompting for line numbers. All commands described here 


are available in either case. 


If the Y or 7 command is issued within the editor, the display 
terminal screen is split vertically into partitions or seg- 
ments, and multiple objects may be viewed and edited 
simultaneously. In such a case, a given edit command will 
affect only the object being edited in the screen segment where 
the command was entered. 


The following discussion explains the details of the operation 
of the extended editor. A somewhat less detailed explanation 
is given in "Editing Hints" on page 308. 


SCREEN PROCESSING 


Lines may be typed onto any line of the screen. All lines on 
the screen are scanned during processing. Screen processing is 
performed from top to bottom. An updated screen (as determined 
by the input lines) is displayed after all input lines have 
been processed. | 


If no edit command which explicitly requests a display appears 
in the screen segment, then the default system response is to 
re-display that part of the object which is in that segment. 
This display begins with an object information line. Thus, the 
effect of many simultaneous alterations may be seen immediate- 


ly. 


If any edit command which explicitly requests a display does 
appear in the screen segment, then the system action is to not 
change the display except for honoring the request. All edit 
commands will still be processed, but the effects of commands 
which do not explicitly request displays may not be seen imme- 
diately. In such a case, if the ENTER key is used again without 
entering any other commands, then the effects of the previous 
commands can be seen. 
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Editor processing is started with either the ENTER key or a PF 
key. If a PF key is used, then screen processing is performed 
normally, and then the PF key's definition is executed as if it 
were the last line in the screen segment where the cursor was 
when the key was pressed. The PF key assignments are shown in 
Figure 20 on page 307. 


If the PA2 key is used twice in succession, then the editor will 
be immediately aborted. © | 


If an editing error occurs, screen processing will stop, the 
cursor will be placed at the beginning of the line in error, and 
the terminal alarm will sound. An error message will be placed 
on the top line of the screen segment where the error occurred, 
overwriting the object information line. Unprocessed commands 
below the line in error will remain on the screen so that they 
may be processed after the error has been corrected. 


There are four classes of input lines that the editor recog- 
nizes: | 


1. special commands that affect the editing environment 


2. text lines identified by preceding bracketed line numbers 
that display, alter, or insert object text 


3. bracketed commands which display or change object text 


4. unidentified lines (all lines not belonging to the first 
three classes) | 


The effect of an input line may depend upon where it is typed on 
the screen, If more than one object is being edited 
Simultaneously, then an input line will affect only the object 
being edited in the screen segment where it was entered. 


An input line may be typed over the object information line 
which the system gives at the top of each screen segment. 


Blank lines are ignored by the editor during processing. Sys- 
tem commands are not recognized by the editor, 


SPECIAL COMMANDS 
There are two special commands which affect the editing envi- 
ronment: 

vV name command 


Begin editing the object with the given name. This 
command may be used either outside the editor to enter 
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edit mode, or inside the editor to edit multiple 
objects simultaneously. 


If the command is entered while in edit mode, the 
screen line where it was entered will begin a new 
object segment, and the previous segment will end on 
the previous line. 


If the object is a new one, then it is assumed to be a 
defined function or operator, and the entire header 
(line 0) may be provided instead of only the name. 


Optionally, the first input line may also be included 
with the Y command. 


Optionally, a closing V may be included last. This 
means to: 


1. Open editing of the object. 


2. Establish a temporary screen segment for the 
object. 


3. Execute only the specified first input line, if it 
was included. 


4. Establish the object in the workspace if it was 
changed. 


5. Cease editing the object. 
6. Release the temporary screen segment. 


If the y command is entered with a closing V while in 
edit mode (VF(OJV for example), then the temporary 
screen segment for this object (F) will not be cleared, 
but will be appended to the preceding segment as is. 
This may be helpful to insert the text of one object 
into another, when followed by appropriate line number 
modifications. 


If the V command is entered with a closing Y while not 
in edit mode, then the temporary screen segment for 
this object will be displayed at the terminal, and 
non-edit mode will be continued. | 


If the ¥ character is used instead of the V character, 
then the editor action is the same, but the function 
will be locked when the definition is closed. 


End editing the object in the segment where the command 
was typed. This command is distinguished from the pre- 
ceding one because it has no arguments. It means to: 


The APL2 Extended Editor 297 





1. Establish the object being edited in the active 
workspace, 


2. Cease editing the object. 


3. Clear the screen segment for this object (replace 
it with blanks) if the Y command was entered on a 
line by itself, 


4. Release the screen segment for this object: 


a. Expand the preceding screen segment. If there 
is no preceding segment, then 


b. Expand the succeeding segment. If there is no 
other segment, then 


C. Leave edit mode, 


The V command (without arguments) is initially 
assigned to PF3. It will close the segment in which 
the cursor is found. 


A closing V may optionally end any text input line, 
bracketed command, or an un-identified line, or it may 
be on a line by itself, The screen segment is cleared 
(step 3 above) only when the V is entered on a line by 
itself. If the v is found at the end of an input line, 
then the screen segment is released (as above) without 
Clearing it. 


If the ¥ character is used instead of the v character, 
then the editor action is the same, but the function 
will be locked. | 


EXPLICITLY NUMBERED TEXT LINES 


An explicitly numbered text line is used for both text display 
and text input. 


Object text lines are displayed on the screen preceded by a 
bracketed line number identification. Object text lines that 
are too long to fit on one line of the screen occupy multiple 
display lines on the screen, with continuation lines identi- 
fied by empty brackets. Functions and operators will have 
non-comments and non-labeled lines indented one space. Trail- 
ing blanks in object text lines will be replaced with null 
characters on the screen, so that terminal insertion mode may 
be used. 
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The following are text input lines: 


@ CL] text 


Replace or insert the specified text line at the speci- 
fied single line number L. The line number may be 
fractional. 





In a function or operator, leading blanks in a text 
line will be deleted. In a character variable, the 
first blank after the closing bracket of the command 
(if it exists) will not be considered part of the text 
line. Trailing blanks in a text input line will not be 
significant, unless the entire line after the brackets 
is blank. 


Text lines may begin with bracketed expressions. Only 
the first set of brackets identifies a text input line. 
Changing the line number of a text line makes a new 
copy of the line, and does not delete the old line. 


A text line may not end with a V, because it would be 
interpreted as a closing V. 3 


Note that because the screen is processed from top to 
bottom, the last of conflicting text input lines will 
be the effective one. 





[ J text 


Continue the last object text line preceding (above) 
this one in the screen segment. 


The first two blanks after the closing bracket of the 
command (if they exist) will not be considered part of 
the text line. Trailing blanks in a text continuation 
line will not be significant, unless the entire line 
after the brackets is blank. 


A text continuation line need not be typed on the 
screen immediately below the line it continues. 
Intervening blank lines are permitted. An intervening 
bracket command, however, will cause a text continua- 
tion line to be ignored. If a numbered text line does 
not appear in the screen segment above it, then it will 
be treated as a continuation of the last text line in 
the object. 


A text line may not end with a V, because it would be 
interpreted as a closing V. 


A closing V may optionally end any explicitly numbered text 

& line. This means to close the screen segment after processing 
( the line (as described in "Special Commands" on page 296), but 
suppress clearing the screen segment. Any commands appearing 
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below a closing V will not be processed. The last character of 
text in a text line may not be a V, because it will be treated a 
a Closing V. 


IMPLICITLY NUMBERED TEXT LINES 





Text input may be entered without the preceding explicit line 
number identification within brackets. An input line in a 
normal screen segment (not an execute segment) which does not 
begin with v or [ may be accepted as new text. It will be given 
an implicit line number such that the line is inserted into the 
object immediately after the last numbered text line appearing 
above it in the screen segment. Implicitly numbered text lines 
will be re-displayed with their assigned line numbers. 


An implicitly numbered text line need not be typed on the 
screen immediately below the line it follows. Intervening 
blank lines are permitted. An intervening bracket command , 
however, will cause an implicitly numbered text line to be 
inserted after the last text line in the object. Also, if a 
numbered text line does not appear in the screen segment above 
an implicitly numbered text line, then it will be inserted 
after the last text line in the object, 


If an implicit text line and a subsequent command requesting a 
display are entered in the same screen segment, then the 
re-display of the new text line with its assigned number will 
be inhibited. In such a case, if the implicit line is 
re-processed, then it will be inserted into the object again. 
Therefore, simultaneous display requests and implicit line 
numbering is not recommended. 


A closing V may optionally end any implicitly numbered text 
line. This means to close the screen segment after processing 
the line (as described in "Special Commands" on page 296), but 
Suppress clearing the screen segment. Any commands appearing 
below a closing V will not be processed. The last character of 
text in a text line may not be a V, because it will be treated a 
a closing V. Implicitly numbered text lines may not begin with 
a left bracket ([). 


PRIMARY BRACKET COMMANDS 


There are five forms of primary bracket commands which display 
or change an object being edited. If multiple objects are 
being edited, the affected one is the one in the screen segment 
where the command was typed. 
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The scope of a primary bracket command is indicated by its 
form. Four of the five bracket command forms take line number 
specifications. They are distinguished by the presence and 
position of a bar (-). In the following description, L and M 
are single line numbers, and V is a list of one or more line 
numbers (possibly containing redundant blanks). Any of the 
line numbers may be fractional. Line numbers may not appear on 
the left side of a command. Any text (except a closing V) which 
appears to the right of the closing right bracket is ignored. 


[command] 


Apply the command to all of the text lines in the 
object. 


{command V] 


Apply the command to all of the text lines mentioned in 
V, which may be in any order, and may contain repe- 
titions. | 


[command L-M] 


Apply the command to all of the text lines in the 
interval from L to M, inclusive. 


[command -L] 


Apply the command to all of the text lines in the 
interval from the beginning of the object to L, inclu- 
sive. 


[command L-] 


Apply the command to all of the text lines in the 
interval from L to the end of the object, inclusive. 


Any of the four primary bracket command forms above may be used 
with any of four "command" types below: display, delete, 
locate, and change. 


O 


Display the specified text lines (or as many as can be 
displayed in the screen segment), beginning on the 
line where the command was typed. If the requested 
display does not extend to the bottom of the screen 
segment, then the display will be padded at the bottom 
with blank lines to the end of the segment. The dis- 
play may be truncated . by another display or 
result-producing command. This command requests a 
display, so it inhibits a re-display of the text lines 
in the segment. | o | 
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Examples: 





CO] will display all object text lines (that will 
fit in the segment). 


(02 7] will display the object text lines num- 
bered 2 and 7. 


CO2-7)] will display the object text lines num- 
bered 2 through 7. 


[0-2] will display the object text lines numbered 
2 or less, 


CO2-] will display the object text lines numbered 
2 or greater. 


Note that because the screen is processed from top to 
bottom, a display command will not reflect alterations 
to the object which appear on the screen below the dis- 
play command. Therefore, to avoid possible confusion, 
a display command should not normally be entered on the 
screen where there are other commands below it. 


Note that because the display may be truncated by 
another display or result-producing command, and 
because screen displays are used as input lines during 
subsequent processing, it is possible to lose contin- 
uation text lines by the truncation of displays. 





Delete the specified text lines. Text lines are never 
deleted except by this command. Erasing a text line or 
changing its line number on the screen does not delete 
it. | | 


Examples: 
CA] will delete all object text lines, 


[A2 7] will delete the object text lines numbered 
2 and 7. 


[A2-7] will delete the object text lines numbered 
2 through 7. 


CA-2] will delete the object text lines numbered 
2 or less, 


CA2-] will delete the object text lines numbered 
2 or greater, 





Note that because the screen is processed from top to 
bottom, a delete command that follows a text input line 
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with the same number renders the text input line inef- 
fective. Also, a text input line that follows a delete 
command may replace a deleted line. 





Note that because text appearing to the right of the 
closing bracket is ignored, a text line displayed on 
the screen may be deleted by inserting a A after the 
left bracket and before the line number. This is the 
recommended way to delete a line. 


(Note that if object lines are unintentionally 
deleted, the editing session can be aborted with the 


[+] command, and the original object will remain 
intact. ) 


/string/ options 


Locate and display the specified text lines which con- 
tain the specified string of characters. This command 
requests a display, so it inhibits a re-display of the 
text lines in the segment. 


The character delimiter / which identifies the string 
may be any non-alphanumeric character not occurring in 
the string, and not any of .J>+441?ADAV-. If there are 
no options, then the closing delimiter / may be elided. 





The options may include blanks, and the characters N 
and “. Blanks in the options are ignored. If the 
options include the letter N, then the search will be 
performed for APL2 names only. An APL2 name, in this 
context, is a string which is neither preceded nor suc- 
ceeded immediately by an alphanumeric character, or by 
O or M. This includes names in comments and character 
constants (quoted strings). The "“ option is 
permitted, but has no effect with this command. 


Examples of locate: 


(/AT/] will locate and display all the object 
text lines which contain the character string AT. 


[/AT/ 2 3 7] will locate and display the object 
text lines numbered 2, 3, or 7 if any of them con- 
tains the character string AT. i 


[/AT/ 2-7] will locate and display the object 
text lines in the interval numbered 2 through 7 
which contain the character string AT. 


[/AT/ -2] will locate and display the object text 
lines numbered 2 or less which contain the charac- 


@ ter string AT. 
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C/AT/ 2-] will locate and display the object text 
lines numbered 2 or greater which contain the 
character string AZ, 


C/AT/ NJ] will locate and display all the object 
text lines which contain the APL2 name AT. This 
will not locate uses which are not complete names, 
like THAT, AT13, or DAT, because AT is only part of 
a larger name or word. 


/old/new/ options 


Locate the specified text lines which contain the 
specified old string of characters, and replace each 
indicated occurrence (see the ” option, below) of the 
old string with the new string. 


The character delimiter / which identifies the string 
may be any non-alphanumeric character not occurring in 
the string, and not any of .]>+41?ADAV-. 


The options may include blanks, and the characters N 
and “. Blanks in the options are ignored. If the 
options include the letter N, then the search and 
changes are performed for old strings that are APL2 
names only. An APL2 name is a string which is neither 
preceded nor succeeded immediately by an alphanumeric 
character, or by O or M. This includes names in com- 
ments and character constants (quoted strings). 


If the options include the character ”, then each 
non-overlapping occurrence on the affected lines will 
be changed. Otherwise, only the first occurrence on 
each line will be changed. 


Examples of change: 


[/AT/ROW/J] will change the character string AT to 
ROW the first time it occurs in any object text 
line. 


C/AT/ROW/ “} will change the character string AT 
to ROW every time it occurs in any object text 
line. 


CJAT/ROW/ “ 2 7] will change the character 
string AT to ROW every time it occurs in object 
text line 2 or 7, 


C/AT/ROW/ “ 2-7] will change the character 
string AT to ROW every time it occurs in any object 
text line numbered 2 through 7. 


C/AT/ROW/ N] will change the APL2 name AT to ROW 
the first time it occurs in any object text line. 
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This will not change uses which are not names, like 
THAT, AT13, or OAT. 


(/AT/ROW/ “ NJ will change the APL2 name AT to 
ROW every time it occurs in any object text line. 
This will not change uses which are not names, like 
THAT, AT13, or DAT. 


[/AT/ROW/ “ N 2-7] will change the APL2 name AT 
to ROW every time it occurs in any object text line 
numbered 2 through 7. This will not change uses 
which are not names, like THAT, AT13, or DAT. 


MISCELLANEOUS BRACKET COMMANDS 


There are several miscellaneous bracket commands which may or 
may not not alter an object being edited, and will generally 
change the display. Most of them are especially useful when 
called from PF keys, and are assigned initially to a PF key (see 
Figure 20 on page 307). 


C+] 


Scroll down (forward) through the object and 
re-display the screen segment, so that the text line 
that the cursor is on (or the last text line before the 
cursor) is displayed at the top of the screen segment. 
The segment display will not end with part of a contin- 
ued text line. 


This command is particularly useful ona PF key. It is 
initially assigned to PF8. The cursor is not moved 
after the scrolling, so that, for example, repeated 
scrolling down by five lines can be done by placing the 
cursor on the sixth line from the top of the screen 
segment and repeatedly using PF8. 


[4] 


Scroll up (backward) through the object and re-display 
the screen segment, so that the text line that the cur- 
sor is on (or the last text line before the cursor) is 
displayed at the bottom of the screen segment. The 
segment display will not begin with a continuation 
text line. 


This command is particularly useful ona PF key. It is 
initially assigned to PF7. The cursor is not moved 
after the scrolling, so that, for example, repeated 
scrolling up by five lines can be done by placing the 
cursor on the sixth line from the bottom of the screen 
segment and repeatedly using PF7. 
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Cid 
Renumber all object text lines in the segment where the 
command was typed with consecutive integers, and then 
re-display the object beginning at the top of the 
screen segment area for this object. This command is 
initially assigned to PF9. ' 





[2] 


Display the current PF key assignments as a comment on 
the screen line where the command was entered. The PF 
key assignments are shown in Figure 20 on page 307. 
This command is initially assigned to PF1. This com- 
mand requests a display, so it inhibits a re-display of 
the text lines in the segment. 


Since a PF key's definition is executed as if it were 
the last line in the screen segment where the cursor 
was, PF1 may be used to identify the bottom line of a 
screen segment, 


CVI 


Establish the object being edited in the active work- 
Space. Do not release the screen segment, but continue 
editing the object. This command is initially 
assigned to PF6, 





[>] 


Abort editing the object being edited in the screen 
segment where the command was typed. Do not establish 
it in the workspace, but clear the screen segment, and 
release it to the adjacent segment as with the V com- 
mand, 


Cal 


Ignore this screen line (except for a closing V). It 
is a comment only. The editor places such an informa- 
tion comment line at the top of each screen segment, 
but this line may be over-written with an input line. 


Any text (except a closing V) which appears to the right of the 
Closing right bracket is ignored. 


IMMEDIATE EXECUTION SEGMENTS 


A special screen segment may be created under the name + with 
the command Ve. Special rules apply to such a segment: 
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Figure 20. PF Key Assignments for the Extended Editor 
Immediate execution is permitted. 
Implicitly numbered text input lines are not permitted. 


Bracket commands and explicitly numbered text lines are 
permitted, but any resulting text can only be displayed 
while the segment exists, and cannot be established in the 
workspace. They may, however,.be appended to an adjacent 
screen segment with a closing V at the end of a numbered 
text line. 


Any line in an immediate execution screen segment which does 
not begin with the characters V or C is considered an APL2 
statement, and will be executed in the áctive workspace if the 
cursor was on that line when processing began. Such a line will 
be indented six spaces in the display after processing. 


If the line has a result, then the result will be displayed on 
the screen, beginning just under the line where the statement 
was typed. If the display of the result does not extend to the 
bottom of the screen segment, then the display will be padded 
at the bottom with blank lines to the end of the display. 


If execution of the statement results in an APL2 error, then 
the error report will be displayed on the screen beginning just 
under the line where the statement was typed. Errors resulting 
from immediate execution statements are not considered editing 
errors, and they will not stop screen processing. 


Branch statements may not be executed in an execute segment. 


The statement > is equivalent to [+] if the cursor was on that 
line when processing began. 
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The system commands )SI, )SINL, and )SIS will identify with the 
character V the names of defined functions or Operators that 
are suspended in editing. 


EDITING HINTS 


In the following discussions, mention is made of editing func- 
tions only. Defined functions, defined operators, and (char- 
acter vector or matrix) variables may all be edited, and the 
discussions apply to any of these objects. 


Hints for creating a new function: 


1. Because of implicit line numbering, it is only necessary to 
type the text of lines on the screen. They may be typed in 
any order, and with intervening blank lines if desired. 
They are put into the function in the order they appear on 
the screen. The system will insert appropriate line num- 
bers whenever the ENTER key is used, | 


2. If it is necessary to enter a text line that is longer than 
the width of the screen, type its continuation on the 
screen line immediately below the First part, and preceded 
with [ ]. 


3. When the screen is full, you may leave the cursor near the 
bottom of the screen and use the PF8 key to scroll down. 


Hints for examining an existing function: 


1. The PF7 and the PFs key may be used in conjunction with the 
cursor position to scroll through the function, 


2. If it is desired to perform a search for a name or a charac- 
ter string, a locate command (like [/aRESULT/] can typed 
directly over the top text line in the screen segment, 
That way, the located text lines will be displayed begin- 
ning at the top of the segment, so there will be plenty of 
room for them, 


3. After sucha locate command has been processed, the section 
of the function that begins with one of the given lines can 
be conveniently displayed. Simply erase all the text lines 
above the desired one (with the ERASE EOF key), and then 
use the ENTER key. The function will be re-displayed, 
beginning with the top text line showing in the segment. 


4. A passive edit screen segment may be aborted by typing a 


right arrow (+) over one of the line numbers (or the a) in 
brackets in the segment. 
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Hints for changing an existing function: 


Ts 


To perform minor changes to text lines, just display the 
appropriate part of the function, and type the changes over 
any text line on the screen. Characters can be removed 
from text lines with the DEL key. Characters can be added 
to short text lines by using the INS MODE key. 


If it is necessary to insert characters in the middle of a 
long text line which has a continuation, the best method is 
to use the change command for the single line (like 
[/VAR/VARIABLE/ 17]) Type the change command below the 
last continuation of the text line to be changed, and then 
use the ENTER key. Commands may be typed over any text 
line. 


The best way to delete a text line from the function is to 
display it for verification, and then insert a 4 after the 
C and before the line number. 


Text lines may be inserted by using either implicit or 


explicit line numbers. If implicit line numbers are used, 


just type the new line under the one it is to follow. If 


explicit line numbers are used, the line may be typed any- 


where in the screen segment. When the ENTER key is used, 


the lines will be re-displayed with line numbers, and in 
their proper order. 


Existing text lines which are not continued may be freely 
overwritten anywhere on the screen. Care must be taken to 
erase any continuation lines if part of a continued text 
line is overwritten. The existing text line will not be 
affected by overwriting it. 


An exact copy can be made of a text line by changing only 
its line number. The original text line will be 
unaffected. When the ENTER key is used, the lines will be 
re-displayed in their proper order. 


An similar copy of a text line can be made by changing both 
its line number and part of its text. The original text 
line will be unaffected. When the ENTER key is used, the 
lines will be re-displayed in their proper order. 


A text line can be appended to the one showing above it by 
blanking out its line number. When the ENTER key is used, 
the lines will be re-displayed. 


Multiple commands and text changes may be typed on the 
screen before the ENTER key is used and the modified func- 
tion is re-displayed. After commands and text changes are 
typed on the screen, A PF key may be used instead of the 
ENTER key. | 
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Hints for opening multiple screen segments: 


1, 


New screen segments can be started at any time and on any 
line of the screen with the y command. This can be done 
either with or without passing text lines to the new screen 
segment, 


If you enter a V command where there are text lines showing 
below it, they will be processed as part of the new screen 
segment. This will normally add or replace text lines in 
the second function being edited. This is the recommended 
way to pass text lines from one function to another, or 
from an execute screen segment to another. 


If you want to edit another function without passing it 
text lines, then blank out the screen segment below the y 
command (with the ERASE EOF key) before entering it. 


Hints for closing screen segments; 


1. 


4. 


Screen segments can be closed with either the V command or 
the [>] command. The Closing V can optionally be used to 
pass text lines to the adjacent screen segment. The action 
of the closing V depends upon whether or not it is entered 
on a line by itself, 


If the closing V is used ona line by itself, then the 
Screen segment will be erased, and no information will be 
passed to the adjacent segment. 


If the closing V is used at the end of a text line, then the 
Screen segment will remain displayed, and be appended to an 
adjacent segment. This will normally add or replace text 
lines in the function being edited in the adjacent segment. 


The entire editing session (all screen segments) can be 
aborted by two consecutive uses of the PA2 key. 


Hints for using execute screen segments; 


1. 
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A screen segment may be opened with the name e. this per- 
mits immediate execution of APL2 statements, instead of 
implicit line numbering. Only one statement at a time may 
be executed, and that is the one the cursor is on when the 
ENTER key or a PF key is used. 


A function can be edited in one segment, and tested in a 
separate z segment on the screen at the same time. This 
requires use of the [V] command in the normal segment to 
establish editing changes to the function in the workspace 
before trying them out, 


Any lines displayed in an execute screen segment may be 


given bracketted line numbers. If the segment is then 
closed with a V at the end of such a line, then the numbered 
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text lines showing on the screen will be appended to the 
adjacent screen segment. | | 











The APL2 Extended Editor 311 











312 APL2 Language Manual 











APPENDIX A, FURTHER EXAMPLES 


The features of APL2 invite methods of problem solution that 
were previously less convenient to use. These and other 
defined functions and operators are provided in the supplied 
workspace EXAMPLES. 


1. Trace the execution of a function: 


Y ZL (F TRACE) R 
[1] a TRACE FUNCTION EXECUTION 
[2] +(0=0NC 'L!)/V1 
[3] A A DYADIC CALL 


(43 (cL),cR a DISPLAY BOTH ARGUMENTS 
[5] ZL F R a EXECUTE DYADIC FUNCTION 
C6] Z a DISPLAY RESULT 

(7) +0 3 

c8] Vi: a MONADIC CALL 

[9] R a DISPLAY RIGHT ARGUMENT 
[10] ZeFr R a EXECUTE MONADIC FUNCTION 
[11] Z A 


DISPLAY RESULT 
y 


This is a defined operator called TRACE which applies the 
function F to argument R if called monađically, or to argu- 
ments L and R if called dyadically. In either case, the 
argument(s) and the result are displayed as the function is 
applied. 


Examples: 


Zz + 1 +TRACE 2 


Z + +TRACE / 1 Y 9 
4 9 
13 
1 13 
14 


14 
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Z + +TRACE N 149 


15 14 


Z + 2 +TRACE / 1234 


NW UTD Y — 


uy) 
on 
«J 


As the examples show, operators may be used to study func- 
tions as functions are used to study arrays. 


Trap errors: 


V ZL (F TRAP) R 

C1] a TRAP AN ERROR 

[2] >(0=0NC 'L!)/V1 

[3] a DYADIC CALL 

[43 Z¢'cQEM! DEA 'L F Rt 

[5] >0 

C6] a MONADIC CALL 

[7] V1: ZeteQem DEA 'F R! 
y 


This is a defined operator called TRAP which applies the 
function F to argument R if called monadically, or to argu- 
ments L and R if called dyadically. In either case, if 
application of the function causes an error, then the error 
message will be intercepted and returned (enclosed) in Z. 


Force scalar conformability: 


V ZL (F PAD) R 38S 
[1] a CONFORM ALL AXES BY OVERTAKE 
[2] DES ((ppL)*ppR)/5 2 
C3] S¢(pL)[ pR. 
[4] Ze(S4L) F SAR 
y 


This is a defined operator called PAD which applies dyadic 


function F to arguments L and R after padding them with 
fill elements till they are the same shape. Line 2 gives a 
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RANK ERROR if the ranks don't match. Line 3 computes the 
maximum length of each axis. Line 4 extends the arguments 
and applies the function. 


Example: 


A + 4 4p'WE THEYUS THEM! 


A 
WE 
THEY 
US 
THEM 
B + 2 3p'WE OUR! 
B 
WE 
OUR 
A A.(=PAD) XB 
1 0 
0 0 
0 0 
0 0 


Note that the expression A A.= QB would have given a LENGTH 
ERROR. 
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APPENDIX B, THE MIGRATION TRANSFER FORM 


The migration transfer form is a simple character vector. It 
represents the name and value of a simple and non-mixed vari- 
able, or a displayable defined function. It is produced by the 
dyadic system function 1 OTF R, where R is the name of the 
object. | 
The migration transfer form vector consists of four parts: 
1. A data type code header character: 

'Ft for a function 

'N' for a simple numeric array 

'C' for a simple character array 


2. The name of the object, followed by a blank. 


3. A character representation of the rank and shape of the 
array, followed by a blank. 


4. A character representation of the array elements in row 
- major order (any numeric conversions are done to 18 
digits). 


A defined function is treated as the character matrix of its 
canonical form, with semicolons between the local variable 
names in the header. 


Examples: 


THIS + 2 3916 
Z € 1 DTF 'TRIS! 


Z 
NTHIS 2 23123456 
pZ 
23 
THAT + 3 4p'ABCDEFGHIJKL' 
Z «e 1 DTE 'THAT! 
Z 
CTHAT 2 3 Y ABCDEFGHIJKL 
oZ 
24 
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vV ZL PLUS R 
C1] ZeL+R 





Z + 1 DTF *PLUS! 


Z 
FPLUS 2 2 140 ZeL PLUS RZ+«L+R 
pZ | 
33 
V VePRIMES NyDIO M 
C1] 0OTO*1 
C2] MeiN 
[3] Ve(1=0+,=(1+M)0o.¡M)/M 
y 
Z + 1 DTF 'PRIMES! 
Z 
FPRIMES 2 4 21 VePRIMES N;QIO3M oro+t 
Mein Ve(1=0+.=(1+M)0o.|1M)/M 
pZ = 
99 
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APPENDIX C. THE EXTENDED TRANSFER FORM 


The extended transfer form is a simple character vector. It 
represents the name and value of a variable, or a displayable 
defined function or operator. It is produced by the monadic 
system function DTF R, or the dyadic system function 2 DTF R, 
where R is the name of the object. | 


If the object named by R is a variable which does not contain 
invalid characters, then its extended transfer form is a char- 
acter vector which when executed generates the array. If R isa 
variable which does contain invalid characters, then its 
extended transfer is not executable, but it may be applied 
again to DTF, which is its own inverse. 


_ Examples: 


THIS + 2 3916 
Z + 2 OTF *THIS! 


Z 
THIS¢+2 30123 4 5 6 
pZ 
20 
THAT «€ 3 U4p'*ABCDEFGHIJKL! 
Z € 2 DTF ‘THAT! 
Z 
THAT*3 “p'tABCDEFGHIJKL' 
pZ 
23 


If the object named by R is a variable which is a non-simple 
array, then its extended transfer form is a character vector 
which represents the array in a manner similar to vector nota- 
tion. If there are multiple items in the array, then eac} 
non-simple item is enclosed within parentheses. | 


Examples: 


THESE + <14 
Z € 2 DTF 'THESE! 


Z E 
THESE«c1 2 3 Y 
pZ 
14 
THOSE + 1 2p(¢1 2 3),¢2 2p14 
Z € 2 DTF 'THOSE! 
Z 
THOSE*1 2p(1 2 3)(2 2p1 2 3 4) 
pl l i 
30 
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WE + !YOU! ME! 
Z + 2 OTF 'WE! 
Z 


WE1YOU!' ‘ME! 
pZ 
13 


The extended transfer form of a shared variable or a system 
variable may be taken. 


Example: 


Z € 2 OTF '0IO' 
Z 

Oro+1 
pZ 

5 


If the object named by R is a displayable defined function or 
operator with no set execution properties, then its extended 
transfer form is a character vector beginning with 'OFX ', and 
followed by the representation for the vector-of-vectors vari- 
ation of its canonical form. | 


Example: 

V ZL PLUS R 
C1) Z+L+R 

y 


Z + 2 DTF 'PLUS! 


Z 
OFX 'ZeL PLUS R! !1ZeL+R! 
pZ | 
24 
vV VePRIMES N;QIO M 
C1] Oro<+1 
C2] MeiN 


C3) Ve(1=0+,=(1+M)0.]M)/M 


Z + 2 OTF 'PRIMES! 
7 
OFX tVePRIMES N;0I0 Mt tQIO+1' tMe Nt 
'Ve(1=0+.=(1+M)o0o.|M)/M! 
pZ 
61 


If the object named by R is a displayable defined function or 


operator with any set execution properties, then its extended 
transfer form is a character vector beginning with the proper- 
ties and 'OFX ' and followed by the representation for the vec- 
tor-of-vectors variation of its canonical form, 
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Example: 





O 1 1 O DFX tZeL PLUS R' 'ZeL+R' 
PLUS 


Z « 2 OTF 'PLUS' 
Z 
0O 1 4 0 OFX 'ZeL PLUS R! *ZeL+R' 


pZ 
32 
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APPENDIX D. MIGRATION TO/FROM APL2 


Migration to and from APL2 is accomplished with files contain- 
ing the extended transfer forms of APL objects. 


A transfer file has fixed length 80 character records. Each 
record has either ' ' or 'X' in the first column. An APL object 
whose transfer form requires N characters is represented as 
[N+71 records in columns 2-72 of the transfer file, with blank 
(X'40') padding if necessary. All records but the “last record 
begin with ' ' (blank). The last (or only) record of a transfer 
form in the file begins with 'X'. Columns 73-80 of the transfer 
file are given sequence numbers on output by the system command 
)OUT or the MIGRATE workspace. The sequence numbers start with 
00010000, and are incremented by 00010000. Columns 73-80 of 
the transfer file are ignored on input by the system command 
) IN or the MIGRATE workspace. 


An example of a transfer file is shown in Figure 21 on page 324 
as it would appear if displayed with OPW equal to 50. The file 
has four records, and contains the operators PAD and TRAP that 
are described in "Appendix A. Further Examples" on page 313. 


Either migration transfer forms or extended transfer forms of 
APL objects may be in the transfer file. Extended transfer 
forms for variables which appear in the file are preceded by 
'A'. Extended transfer forms for defined functions or opera- 
tors which appear in the file are preceded by 'F', the name of 
the function or operator, and a blank. The encoding of the 
characters in the files is as described in "The APL2 Character 
Set" on page 285. 
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FPAD DFX 'ZeL(F PAD)R;S' ta CONFORM ALL AXES BY 
XpR)/5 2! 'Se(pL)T eR! 'Ze(S+L)F SAR! 

FTRAP OFX *ZeL(F TRAP)R' '+(O0=QNC ''Ltty)/vit ta 
DIC CALL" '"Ze''cQEM'' DEA ''L F R'tt 130% ta MON 
XM't DEA ''F pttt : 





OVERTAKE' 'DES((ppL)*p00010000 
00020000 
TRAP AN ERROR! 'g DYAO00030000 
ADIC CALL! 'V1:Z+''cQE00040000 
00050000 


Figure 21. A Transfer File 
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APPENDIX E, SUPPLIED WORKSPACES 


Several utility workspaces are available with APL2. 


MIGRATE 


DISPLAY 


This is an APL workspace which aids in the migration 
of workspaces to and from APL2 via migration files. 
The functions INX and OUTX perform operations simi- 
lar to the system commands )IN and )OUT in APL2. 


Functions, numeric arrays, and character arrays. 
(containing any of the 256 characters in DAV) may be 
migrated to APL2. Groups can not be migrated to APL2 
with MIGRATE. | 


Functions (not containing special, national, or ter- 
minal control characters), simple numeric arrays, 
and simple character arrays (containing any of the 
256 characters in DAV) may be migrated from APLZ. 
Operators, mixed arrays, and non-simple arrays can 
not be migrated from APL2 with MIGRATE. 


The DESCRIBE variable in the workspace contains more 
documentation. 


The DISPLAY function in this workspace produces a 
pictorial display of any array. DISPLAY uses the 
following graphics characters: . 


—X'1B!' QAV[28] 4 upper right corner 
xt1Cct pnAvr29] [ upper left corner 
X'1E* QAVC31] lower left corner 
X'1F' [D4AV[32]) 4 lower right corner 
X'2D' ([DAV[467] — horizontal line 

X'4F! QAVC80] | vertical line 


These characters may display differently on some 
terminals. Therefore, the DISPLAYT function creates 
the same pictures, except that the graphics charac- 
ters used are for non-display terminals. 


The result of either function is always a character 
matrix. The argument array and each item of it (ex- 
cept items in a simple array) is displayed in a box 
showing its rank, shape, emptiness, data type, and 
nesting. 


The top and left box borders indicate rank. Either 
of the characters > or 4 indicates that the dimension 
is at least one. Either of the characters e or ọỌ 
indicates that the dimension is zero. The absence of 
any of the characters > + e or $ in a top or left box 
border indicates that the dimension does not exist 
(that it is a scalar or vector). 
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EXAMPLES 


The bottom box borders indicate data type. The char- 
acter ~ indicates numeric, + indicates mixed, and e 
indicates nested. The absence of any of the charac- 
ters ~ + or e in a bottom box border indicates that 
the data type is character. 


Examples: 


1 "MORE! (2 1X?!) 
A , (O 2p0) (2 2914) (5 t..,18) 


A e 
A «e 


DISPLAY 2 3pA 





os. e >, | 
[111 |MoRE||2 xi | 

| tout AA Y A | 
A ns no . | 
190 Of[41 21 |.-..>--.1] 
see 1S tf Ie. H 
| Pwet | tattoo t]] 
te si al a a aged a | 


This workspace contains a number of miscellaneous 
defined functions and operators of general use, 
including the ones described in "Appendix A. Further 
Examples" on page 313, 


The comments in the individual functions and opera- 
tors provide documentation. The functions can all 
be listed with the function DUMP, and the examples 
can all be run with the function EXAMPLES, 
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APPENDIX F, SYSTEM LIMITATIONS 


These are limitations imposed on APL2 by the nature of its 
implementation: 


V; 


10. 
11. 


12. 


13. 


14, 


15. 


16. 


The largest representable number in an array is 
7,2370055773322621E75, 


The smallest representable number in an array is 
77.2370055773322621E75. 


The most infinitesimal (near zero) representable numbers 
in an array are 5,.397605346934027891E" 79 and 
75.397605346934027891E" 79. : 


The maximum rank of an array is 64. 


The maximum length of any dimension in an array is 
2,147,483 ,647., 


The maximum size of any simple array or simple item in a 
nested array is 16,777,216 bytes of storage. 


The maximum number of elements in an array is 67,108,863. 


The maximum depth of an array applied to any of the primi- 
tive functions Type (€), Depth (=), or Match (=) is 98. 


The maximum depth of a shared variable is 38. 
The maximum depth of a copied variable is 38. 


The maximum number of characters in the name of a shared 
variable is 255. 


The maximum number of characters ina comment (less leading 
blanks) is 32,764. 


The maximum number of lines in a defined function or opera- 
tor is 2,147,483 ,647. | 


The maximum number of labels in a defined function or oper- 
ator is 32,767. | 


The maximum number of local names (excluding labels) in a 
defined function or operator is 32,767. 


The maximum number of slots in the internal symbol table is 
32,767. 
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APPENDIX G., DIFFERENCES FROM APL 


There are several features or operations in APL2 that can 
produce different results from those in APL. This list does 
not include extensions (operations which produced errors in 
APL but do not produce errors in APL2). | 


10. 


11. 


12. 


13. 


14. 


15. 


The Atomic Vector (DAV) is different. In particular, the 
alphabets are not contiguous. 


” and _ are alphanumeric characters. 
ONC name class 4 means operator. 
Onc name class "1 means invalid name. 


The system function Name Class (DNC) applies to distin- 
guished names (system variables and system functions). 


The result of DEX, ONC, OSVO, or OSVR applied to a vector is 


- a scalar. 


The backspace character, the new line character ( carriage 
return), and the line feed character are not permitted in a 


character constant or in function definition. 


Lower case letters, new APL2 characters @e10WMW =", 
national use characters ¢ | ! $: #a"%~ {}\, and spe- 
cial characters € and % are permitted in character con- 
stants and comments. 


The result of the system function Canonical Representation 
(OCR) separates local names in the function header with 
blanks. | 


The result of OCR contains no unnecessary blanks in 
non-blank lines. | | 


The result of OCR may contain entirely blank lines. 

Numeric constants in the canonical representation of a 
function show with the same precision with which they were 
entered. 7 


The system function Fix (DFX) will accept blanks as the 
separator between local names in a function header. 


Suspended or pendent defined functions may be expunged 
(with DEX) or fixed (with OFX). 


Referencing M always produces a vector. 
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16. 


17, 
18, 
19, 


20. 
21. 
22, 
23, 
24, 
25, 
26. 


27. 


28. 
29. 


30. 


31. 


330 


Referencing M after setting M with a prompt returns the 
composite of the prompt and the keyboard entry. 


OcT is an implicit argument of the function Residue (|). 
OCT is an implicit argument of the function Encode (T). 


Negative integers are not in the domain of the dyadic 
Binomial (!) function. 


An odd root of a negative number (like “8x+3) is a complex 
number, 


The result of ~40R is the negative square root if the argu- 
ment R is negative. 


The monadic format (¥) or default display of a (simple) 
numeric matrix does not contain a leading column of blanks. 


The monadic format (¥) or default display of a (simple) 
numeric matrix has its columns formatted independently. 


The result of dyadic format L¥R, where L is a single 
non-zero integer, and R is less than 1, does not leave a 
blank for the units digit. 


The display of a multi-dimensional array is folded at OPW, 
if necessary, plane by plane, rather than line by line. 


The display of an empty array having rank greater than 1 
may use zero lines, or may extend to multiple lines. 


The execution of the dyadic system function OSVO is not 
necessarily atomic. If multiple shares are offered 
Simultaneously, it is possible to exhaust the shared vari- 
able quota before all shares are fulfilled. In such a 
case, after a SYSTEM LIMIT error, some shares may be ful- 
filled while others are not. 


If the left Argument of the dyadic system function [OSsvo is 
a 1-element vector, then it does not extend. 


The dyadic system function Shared Variable Query (DSVQ) is 
not supported. 


The edit command [OL] will display only line L of the func- 
tion being edited. The command [OL-] will display from 
line L to the end of the function. 


Changing the name of a function with the system editor cre- 


ates a new function without affecting the original func- 
tion. 
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32. 


33. 


34, 


Settings of Stop Control (SA) and Trace Control (TA) are 
not relocated as a result of line insertion or deletion by 
the system editor. 


Statements entered in immediate execution which are inter- 
rupted by an error are placed in the SI stack, and may be 
resumed by entering 710. 


Groups are replaced by Indirect Copy and Indirect Erase. 
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APPENDIX H. APL2 UNDER CP/CMS 


APL2 runs under CP/CMS by calling a module. Auxiliary process- 
ors may be named as arguments to the module. Upon both initi- 
ation and termination of an APL2 session, the module calls an 
EXEC named AP2EXIT. This EXEC may be modified to suit individ- 
ual needs. 


In APL2 under CP/CMS, 


1. 


10. 


41. 


The method of signalling an interrupt varies with the type 
of terminal. The methods are shown in Figure 22 on page 
334. A strong interrupt is iS by two weak inter- 


| PUDE in succession. 


The name of a workspace may have no more than eight charac- 
ters. 


An unspecified library number for the system commands 
)LIB, )LOAD, )SAVE, )COPY, and )PCOPY normally indicates a 


private library. Workspaces in a private library have a 


file type of APLWSV2. 


The default (unspecified) library number is 1001, It can 
be defined to be a private, project, or public library num- 
ber with an appropriate option in the APL2 command. This 
is also the value of the first element of the system vari- 
able Account Information (QAI(C1)). 


The file type of a public library workspace is Vnnnnnnn, 
where nnnnnnn is a 7-digit library number right adjusted 
and preceded with zeros. The maximum library number of a 
public library is 9999999, : 


A transfer file is specified by the file name, file type, 
and file mode separated by dots. The default file type is 
APLTF. The default file mode is A. 


The value of the system variable Terminal Type (DTT) is 0. 


Settings of the system variable Horizontal Tabs (DAT) are 
ignored, and the system resets DXT to 10 if itis set. 


The maximum number of simultaneously shared variables, as 
reported by the )QUOTA system command, is 8+8xAPS, where 
APS is the number of auxiliary processors active. 


The size of shared memory, as reported by the )QUOTA system 
command, is about 500 bytes more than the maximum size of a 
shared variable. 

The system commands )OFF, )OFF HOLD, )CONTINUE, and 
)CONTINUE HOLD normally return from APL2 to CMS, and do not 
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Stop Output Weak Interrupt 
Typewriter Attention Attention 


Display | ENTER or 
PA1 twice 


Session Manager 
Figure 22. Terminal Attentions Under CP/CMS | 






perform a LOGOFF from CP/CMS. This behavior can be modi- 
fied in the AP2EXIT EXEC. 


12. The MIGRATE workspace is a VS APL workspace. 


For more information, refer to the manual APL2 For CMS: Termi- 
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APPENDIX I, NATIONAL LANGUAGE TRANSLATIONS 


System commands will be accepted, and system messages will be 
reported in any of several national languages according to the 
system variable National Language Translation (ONLT). System 
commands will always be accepted in English. 


Tables of the various translations follow alphabetically as 
the language names appear in English. The system commands in 
each table are presented alphabetically as they appear in Eng- 
lish, and the common system messages are presented alphabet- 
ically as they appear in the alternate national language. 
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DANISH LANGUAGE TRANSLATION 


Danish System Commands 


ONLTetENGLISH' 


CLEAR | 
)CONTINUE [HOLD] 
)COPY 
)DROP 
JEDITOR 
JERASE 
)FNS 

)IN 

)LIB 

) LOAD 
)MSG 
)MSGN 
)NMS 
JOFF [HOLD] 
)OPR 
)OPRN 
JOPS 
)OUT 
)PBS 
)PCOPY 
)QUOTA 

) RESET 

) SAVE 

) SI 
)SINL 
)SIS 

) SYMBOLS 
)VARS 
YWSID 


ONLTe'tDANSK' 


) TOMT 
)FORT [HOLD] 
)KOPI 
)FJERN 
JEDITOR 
)SLET 
)FNR 

) IND 

)BIB 
)HENT 

) SEND 

) SENDN 
)NVN 
)SLUT [HOLD] 
)OPR 
)OPRN 
JOPTR 

) UD 

) 808 
)BKOPI 
)KVOTA 
)RENS 
)GEM 

) SI 

)SINL 
)SIS 

) SYMBOLER 
) VAR 
)AAID 
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Danish System Messages 


ONLTetENGLISH! 


THIS WS IS CLEAR WS 
INTERRUPT 

WS NOT FOUND 

WS FULL 

WS LOCKED 

LIBRARY IN USE, RETRY 
LIBRARY FULL 

DEFN ERROR 

THIS WS IS 

IS 

IMPROPER LIBRARY REFERENCE 
AXIS ERROR 

DOMAIN ERROR 

INDEX ERROR 

INCORRECT COMMAND 

LENGTH ERROR 

RANK ERROR 

VALENCE ERROR 

SAVED 

GMT 
NOT 
NOT 
NOT 


AN APL2 WS 
FOUND 
SAVED, 

NOT COPIED 

NOT ERASED 
ENTRY ERROR 
VALUE ERROR 
LIBRARY I/O ERROR 
SI WARNING 
SYNTAX ERROR 
SYSTEM ERROR 
SYSTEM LIMIT 
CLEAR WS 

WAS 

0__ ERROR 


Appendix I. National Language Translations 


ONLT+'DANSK! 


AA IKKE NAVGIVET 
AFBRYDELSE — 

ARBEJDSAREAL FINDES IKKE 
ARBEJDSAREAL FYLDT 
ARBEJDSAREAL L$ST 
BIBLIOTEK I BRUG, PRAV IGEN 
BIBLIOTEKS KVOTA BRUGT OP 
DEFINITIONSFEJL 

DETTE AA HEDDER 

ER 
FORKERT 
FORKERT 
FORKERT 
FORKERT 
FORKERT 
FORKERT 
FORKERT 
FORKERT 


BIBLIOTEKSKALD 
AKSE 

DOMENE 

INDEKS 
KOMMANDO 
L#NGDE 

RANG 

VALENS 


- GEMT 


GMT 

IKKE 
IKKE 
IKKE 


ER APL2 ARBEJDSAREAL 
FUNDET 

GEMT, 

IKKE KOPIERET 

IKKE SLETTET 
INDL#SNINGSFEJL 

INGEN V#RDI 
LeSE/SKRIVE-FEJL VED BIBLIOTEK 
SI @DELAGT 

SYNTAKSFEJL 

SYSTEM FEJL 

SYSTEM GRENSE 

TOMT ARBEJDSAREAL 

VAR 

O__ FORKERT 
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FINNISH LANGUAGE TRANSLATION 


Finnish System Commands 


ONLTe«'ENGLISH' 


) CLEAR 
)CONTINUE [HOLD] 
)COPY 
)DROP 
JEDITOR 
)ERASE 
)FNS 

) IN 

)LIB 

) LOAD 
)MSG 
)MSGN 

) NMS 
JOFF [HOLD] 
JOPR 
)OPRN 
)OPS 
)OUT 
)PBS 
)PCOPY 
)QUOTA 

) RESET 

) SAVE 

) SI 
)SINL 
)JSIS 

) SYMBOLS 
) VARS 
JWSID 


ONLT<'SUOMI'! 


\TYHJENNYS 
)JJATKUU [PID#] 
)KOPIOI 
)TUHOA 
JEDITOR 
)POISTA 
)FUNKTIOT 
)TUO 
)KIRJASTO 
)LATAA 

) SANOMA 
)KERRO 
)NIMET 
)JLOPETA [PID#] 
)OPSANOMA 
)OPKERRO 
JOPER 

)VIE 

)APK 

) SKOPIOI 
)KIINTIaT 
)POIS 
)TALLETA 
PI 

)TINL 

TIE 

) SYMBOLIT 
) MUUTTUJAT 
\TTNIMI 
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Finnish System Messages 


ONLT+tENGLISH! 


RANK ERROR 

NOT COPIED 

NOT FOUND 

NOT AN APL2 WS 
NOT ERASED 

NOT SAVED, 
ENTRY ERROR 
GMT 

INDEX ERROR 
SYSTEM LIMIT 


SYSTEM ERROR 
INTERRUPT 

SYNTAX ERROR 

LIBRARY FULL 

LIBRARY IN USE, RETRY 


DEFN ERROR 

WAS 

IS 

LENGTH ERROR 
DOMAIN ERROR 

AXIS ERROR 

SAVED 

SI WARNING 
LIBRARY I/O ERROR 
VALUE ERROR 


WS LOCKED 

WS FULL 

WS NOT FOUND 

THIS WS IS CLEAR WS 

THIS WS IS 

CLEAR WS 

IMPROPER LIBRARY REFERENCE 
INCORRECT COMMAND 

VALENCE ERROR 


D_ ERROR 


Appendix I. National Language Translations 


ONLT*'*t SUOMI! 


ASTEVIRHE 

EI KOPIOITU 

EI LAYTYNYT 

EI OLE APL2-TYATILA 

EI POISTETTU 

EI TALLETETTU, 

EP#KELPO MERKKI SYaTASS#& 

GMT 

INDEKSIVIRHE 

JFRJESTELMEN RAJOITUKSEN 
YLITYS 

J#RIJESTELM#N TOIMINTARRIRIO 

KESKEYTYS 

KIELIOPPIVIRHE 

KIRJASTO ON TRYST 

KIRJASTO ON VARATTUNA, 
YRIT# UUDELLEEN 

OHJELMAN M##RITYSVIRHE 

OLI 

ON 

PITUUSVIRHE 

SOPIMATON ARGUMENTTI 

SUUNTAVIRHE 

TALLETETTU 

TI-VAROITUS 

TIEDONSIIRTOVIRHE 

TUNTEMATON NIMI TAI 
PUUTTUVA ARVO 

TYATILA ON LUKITTU 

TYATILA T#eYNNR 

TYATILAA EI LaYTYNYT 

TYATILALLA EI OLE NIME*% 

TYITILAN NIMI ON 

TYHJ# TY TILA 

VIRHEELLINEN KIRJASTOVIITE 

VIRHEELLINEN KOMENTO 

VIRHEELLINEN M##R% 
ARGUMENTTEJA 

O__ VIRHE 
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FRENCH LANGUAGE T 


ON 


French System Commands 


ONLT«'ENGLISH! 


) CLEAR 
)CONTINUE [HOLD] 
)COPY 
)DROP 
JEDITOR 
)ERASE 
JENS 

) IN 

)LIB 

) LOAD 
)MSG 
)MSGN 

) NMS l 
)OFF [HOLD 
)OPR 
)OPRN 
JOPS 

)OUT 

)PBS 

) PCOPY 
)QUOTA 

) RESET 

) SAVE 

) SI 

)SINL 
)SIS 

) SYMBOLS 
)VARS 
YWSID 


DNLT¢'FRANCAIS' 


)LIBER 
)SUSP [APL] 
)COPIER 
)ELIM 
JEDITEUR 
)EFFACER 
)FNS 
)LECT 
)BIB 

) CHARGER 
)MSG 
)MSGN 

) NOMS 
)FIN [APL] 
)OPER 
)OPE RN 
JOPERS 
JECRIT 
)EAI 
)PCOPIER 
)QUOTA 

) RESTAUR 
) SAUV 
)IE 
)IELN 
)CIE 
)SYMB 
)VARS 

) ZONE 
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French System Messages 


ONLT+tENGLISH! 
LIBRARY IN USE, RETRY 


SYSTEM LIMIT 
ENTRY ERROR 

THIS WS IS CLEAR WS 
THIS WS IS 
INCORRECT COMMAND 
DEFN ERROR 

LENGTH ERROR 

DOMAIN ERROR 

RANK ERROR 

SYNTAX ERROR 
VALENCE ERROR 
SYSTEM ERROR 

AXIS ERROR 

INDEX ERROR 

LIBRARY I/O ERROR 
IS 

WAS 

GMT 

SI WARNING 
INTERRUPT 

LIBRARY FULL 

NOT ERASED 

NOT SAVED, 

NOT COPIED 

NOT FOUND 

IMPROPER LIBRARY REFERENCE 


SAVED 

VALUE ERROR 

WS FULL 

CLEAR WS | 
NOT AN APL2 WS 


WS NOT FOUND 
WS LOCKED 
O ERROR 
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ONLT+'FRANCAIS' 


BIBLIOTHEQUE UTILISEE, 
ESSAYEZ DE NOUVEAU 

CAPACITE DU SYSTEME DEPASSEE 

CARACTERE NON VALIDE 

CETTE ZONE EST LIBRE 

CETTE ZONE S'APPELLE 

COMMANDE INCORRECTE 

ERREUR DE DEFINITION 

ERREUR DE DIMENSION 

ERREUR DE DOMAINE 

ERREUR DE RANG 

ERREUR DE SYNTAXE 

ERREUR DE VALENCE 

ERREUR DU SYSTEME 

ERREUR D'AXE 

ERREUR D' INDEXATION 

ERREUR E-S EN BIBLIOTHEQUE 

EST 

ETAIT 

GMT 

INDICATEUR D'ETAT ENDOMMAGE 

INTERRUPTION 

NOMBRE DE ZONES DEPASSE 

NON EFFACE 

NON SAUVEGARDE 

OBJETS NON COPIES 

OBJETS NON TROUVES 

REFERENCE INCORRECTE A 
LA BIBLIOTHEQUE 

SAUVEGARDE 

VALEUR NON DEFINIE 

ZONE DE TRAVAIL PLEINE 

ZONE LIBRE 

ZONE NON MISE EN FORME 
POUR APL2 

ZONE NON TROUVEE 

ZONE PROTEGEE 

O__ EN ERREUR 
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GERMAN LANGUAGE TRANSLATION 


German System Commands 


ONLT«'ENGLISH! 


) CLEAR 


)CONTINUE [HOLD] 


) COPY 

) DROP 
JEDITOR 
JERASE 
)FNS 
)IN 
)LIB 

) LOAD 
)MSG 
)MSGN 
)NMS 
)OFF [HOLD] 
)OPR 
)OPRN 
JOPS 
)OUT 
)PBS 
)PCOPY 
)QUOTA 
) RESET 
) SAVE 
)SI 
)SINL 
SIS 

) SYMBOLS 
)VARS 
JIWSID 


ONLT<'DEUTSCH! 


)LEERE 
\WEITER [HALTE] 
)KOPIERE 
)JENTFERNE 
JEDITOR 

) LOESCHE 

) FUN 

JEIN 

)BIBL 

) LADE 
)ANFRAGE 
)NACHRICHT 

) NAM 

JENDE [HALTE] 
)JOPRANFR 
)OPRNACHR 
JOPE 

) AUS 

) RSZ 
)SKOPIERE 

) QUOTEN 
)GRUNDSTELLUNG 
)SPEICHERE 
)SI 

)SINL 

SIA 

) SYMBOLE 

)VAR 

) ABNAME 
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German System Messages 


ONLT+etENGLISH! 


WS LOCKED 

THIS WS IS CLEAR YS 
THIS WS IS 

WS NOT FOUND 

CLEAR WS 

LIBRARY FULL 

WS FULL 

LIBRARY IN USE, RETRY 
DEFN ERROR 

LIBRARY I/O ERROR 


VALENCE ERROR 
SAVED 

INDEX ERROR 

IS | 

NOT AN APL2 WS 
AXIS ERROR 
LENGTH ERROR 
VALUE ERROR 
NOT FOUND 

NOT ERASED 

NOT SAVED, 

NOT COPIED 
RANK ERROR 

SI WARNING 
SYNTAX ERROR 
SYSTEM LIMIT 
SYSTEM ERROR 
IMPROPER LIBRARY REFERENCE 


INCORRECT COMMAND 
DOMAIN ERROR 
ENTRY ERROR 
INTERRUPT 

WAS 

GMT 

O__ ERROR 
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ONLT*tDEUTSCH! 


AB GESPERRT 

AB HAT KEINEN NAMEN 

AB NAME IST 

AB NICHT GEFUNDEN 

AB OHNE NAME 

AB QUOTE AUSGESCHOEPFT 

AB VOLL | 

BIBLIOTHEK BENUTZT, WIEDERHOLE 

DEFINITIONSFEHLER 

E/A FEHLER BEI 
BILIOTHEKSZUGRIFF 

FALSCHE ARGUMENTANZAHL 

GESPEICHERT 

INDEXFEHLER 

IST 

KEIN APL2 AB 

KOORDINATENFEHLER 

LAENGENFEHLER 

NAME OHNE WERT 

NICHT GEFUNDEN 

NICHT GELOESCHT 

NICHT GESPEICHERT, 

NICHT KOPIERT 

RANGFEHLER 

SI WARNUNG 

SYNTAXFEHLER 

SYSTEMBESCHRAUENKUNG 

SYSTEMFEHLER 

UNERLAUBTER 
BIBLIOTHEKSZUGRIFF 

UNGUELTIGE SYSTEMANWEISUNG 

UNGUELTIGES ARGUMENT 

UNGUELTIGES ZEICHEN 

UNTERBRECHUNG 

WAR 

WEZ 

O_ FEHLER 
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NORWEGIAN LANGUAGE TRANSLATION 


Norwegian System Commands 


DONLT¢' ENGLISH! 


)CLEAR 
)CONTINUE [HOLD] 
) COPY 
)DROP 
JEDITOR 
)ERASE 
)FNS 

)IN 

)LIB 

) LOAD 
)MSG 
)MSGN 

) NMS 
)OFF [HOLD] 
)OPR 
)OPRN 
)OPS 
)OUT 
)PBS 
)PCOPY 
)QUOTA 

) RESET 

) SAVE 
)SI 
)SINL 
)SIS 
)SYMBOLS 
)VARS 
\WSID 


ONLT+*NORSK' 


)NULLSTILL 
)FORTSETT [HOLD] 
)KOPIER 
)FJERN 
JEDITOR 
)SLETT 

) FUNKSJONER 
)INN 

) BIBLIOTEK 
)HENT 
)MELDING 
)MELDINGN 
) NMS l 
)AV [HOLD] 
)OPR 

)OPRN 

)OPS 

) UT 

)PBS 
)BKOPIER 
)KVOTE 

) RESET 
)LAGRE 

)SI 

) SINL 

)SIS 

) SYMBOLER 
)VARIABLER 
JAOID 
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Norwegian System Messages 








ONLT+*ENGLISH! ONLT+'*NORSK'* 
AXIS ERROR AKSEFEIL 
WS NOT FOUND AO IKKE FUNNET 
WS LOCKED AO L$ST 
THIS WS IS CLEAR WS AO NULLSTILT 
CLEAR WS AO NULLSTILT | 
LIBRARY FULL AO-KVOTE OPPBRUKT 
WS FULL ARBEIDSOMR$DE FULLT 
INTERRUPT AVBRUDD 

e LIBRARY I/O ERROR BIBLIOTEK I/O FEIL 
LIBRARY IN USE, RETRY BIBLIOTEK OPPTATT, PRAV IGJEN 
DEFN ERROR DEFINISJONSFEIL 
THIS WS IS DETTE ER 
IS ER 
INCORRECT COMMAND FEILAKTIG KOMMANDO 
GMT GMT 
NOT AN APL2 WS IKKE ET APL2 AO 
NOT FOUND IKKE FUNNET 
NOT COPIED IKKE KOPIERT 
NOT SAVED, IKKE LAGRET, 
NOT ERASED IKKE SLETTET 
INDEX ERROR INDEKSFEIL 
SAVED LAGRET 
LENGTH ERROR LENGDE-KONFLIKT 
DOMAIN ERROR OMR$DEFEIL 
RANK ERROR RANG-KONFLIKT 
SI WARNING SI ADELAGT 
SYNTAX ERROR SYNTAKSFEIL 
SYSTEM LIMIT SYSTEM GRENSE 
SYSTEM ERROR SYSTEMFEIL 
ENTRY ERROR TASTFEIL 
IMPROPER LIBRARY REFERENCE UGYLDIG BIBLIOTEK-REFERANSE 
VALENCE ERROR | UGYLDIG FUNKSJON 
WAS VAR 
VALUE ERROR VERDIFEIL 
O__ ERROR O_ FEIL 
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SPANISH LANGUAGE TRANSLATION 


Spanish System Commands. 





ONLT+'ENGLISH' ONLT+'ESPANOL' 
)CLEAR ) LIMPIAR 
)CONTINUE [HOLD] )CONTINUAR [MANTENER] 
)COPY ) COPIAR 

) DROP )ELIM 

)EDITOR )EDITOR 

)ERASE ) BORRAR 

)FNS )FNS 

)IN ) TRAER 

)LIB )BIB 

) LOAD )CARGAR 

)MSG | )MSJ 

)MSGN )MSIN 

) NMS ) NMS 

)JOFF [HOLD] )DESCONECTAR [MANTENER] 
)OPR )OPR 

)OPRN )OPRN 

)OPS )OPS 

)OUT ) LLEVAR 

)PBS ) REI 

) PCOPY )COPIARP 
)QUOTA )QUOTA 

) RESET ) LIBERAR 

) SAVE ) ARCHI 

)SI )IP 

) SINL )IPV 

)SIS )IPS 

) SYMBOLS ) SIMBOLOS 

) VARS )VARS 

\WSID ) NOMBRE 
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Spanish System Messages 


ONLT+*tENGLISH! 


SAVED 
LIBRARY IN USE, RETRY 


LIBRARY FULL 

WAS 

DEFN ERROR 
DOMAIN ERROR 
AXIS ERROR 

ENTRY ERROR 

INDEX ERROR 
LENGTH ERROR 

RANK ERROR 

SYNTAX ERROR 
VALENCE ERROR 
VALUE ERROR 

O__ ERROR 

SYSTEM ERROR 
LIBRARY I/O ERROR 
IS 

WS FULL 

NOT AN APL2 WS 
THIS WS IS 

THIS WS IS CLEAR WS 
CLEAR WS 

WS LOCKED 

WS NOT FOUND 

GMT 

INTERRUPT 

SI WARNING 
SYSTEM LIMIT 
INCORRECT COMMAND 
NOT SAVED, 

NOT ERASED 

NOT COPIED 

NOT FOUND 
IMPROPER LIBRARY REFERENCE 
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—ONLT*tESPANOL! 


ARCRIVADO 
BIBLIOTECA UTILIZANDOSE, 
REPITA | 

CUOTA DE ET EXCEDIDA 

ERA 
ERROR DE 
ERROR DE 
ERROR DE 
ERROR DE 
ERROR DE 
ERROR DE 
ERROR DE 
ERROR DE 
ERROR DE VALENCIA 
ERROR DE VALOR 

ERROR DE Q__ 

ERROR DEL SISTEMA 
ERROR E/S DE BILIOTECA 
ES 

ESPACIO DE 
ESPACIO DE 


DEFINICION 
DOMINIO 
EJES 
ESCRITURA 
INDICE 
LONGITUD 
RANGO 
SINTAXIS 


TRABAJO LLENO 
TRABAJO NO APL2 


ESTE ET ES 


ESTE ET ES 
ET ANONIMO 
ET NECESITA PALABRA CLAVE 

ET NO HALLADO 

GMT 

INTERRUPCION 

IP ALTERADA 

LIMITE DEL ERROR 

MANDATO INCORRECTO 

NO ARCHIVADO, 

NO BORRADO 

NO COPIADO 

NO ENCONTRADO 

NUMERO DE BILIOTECA INCORRECTO 


ANONIMO 
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SWEDISH LANGUAGE IRANSLATION 


Swedish System Commands 


ONLT+*tENGLISH! 


) CLEAR 
)CONTINUE [HOLD] 
) COPY 
)DROP 
)EDITOR 
)ERASE 
)FNS 

)IN 

)LIB 

) LOAD 
)MSG 
)MSGN 
)NMS 
JOFF [HOLD] 
)OPR 
)OPRN 
)OPS 

) OUT 

) PBS 
)PCOPY 

) QUOTA 

) RESET 

) SAVE 

) SI 
)SINL 
)SIS 

) SYMBOLS 
) VARS 
\WSID 


ONLT¢+'SVENSKA' 


) NY 
)JFORTS [H$LL] 
)KOPIERA 
)KASTA 
)REDIGERA 
)RADERA 

) FUNK 

) IN 

)BIBL 

) LADDA 

)MEDD 

)MEDDN 

) NAMN 

)SLUT (H$LLJ 
)JOPR 

)OPRN 

JOPER 

) UT 

)PBS 

) SKOPIERA 
)KVOT 

)RENSA 
)SPARA 

)SI 

)SINL 

)SIS 

) SYMB 

) VAR 

) 1D 
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Swedish System Messages 


ONLT+*tENGLISH! 


WS NOT FOUND 

WS FULL 

THIS WS IS 

WS LOCKED 

THIS WS IS CLEAR WS 
INTERRUPT 

AXIS ERROR 

LIBRARY FULL 

LIBRARY IN USE, RETRY 


DEFN ERROR 
NOT AN APL2 WS 
NOT FOUND 

NOT COPIED 

NOT ERASED 

‘NOT SAVED, 

O__ ERROR 

LIBRARY I/O ERROR 
INCORRECT COMMAND 
GMT 

INDEX ERROR 
LENGTH ERROR 
ENTRY ERROR 
IMPROPER LIBRARY REFERENCE 
DOMAIN ERROR 
CLEAR WS 

RANK ERROR 

SI WARNING 

SAVED 

SYNTAX ERROR 
SYSTEM LIMIT 
SYSTEM ERROR 

WAS 

VALENCE ERROR 
VALUE ERROR 

IS 
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ONLT+t SVENSKA! 


EJ FUNNEN 

FULL 

HETER : 
L$ST 

SAKNAR NAMN 


ARBETSAREAN 

ARBETSAREAN 

ARBETSAREAN 

ARBETSAREAN 

ARBETSAREAN 

AVBRROTT 

AXIS-FEL 

BIBLIOTEKET FULLT 

BIBLIOTEKET UPPTAGET, 
FARSAK IGN 

DEFINITIONS-FEL 

EJ EN APL2 ARBETSAREA 

EJ FUNNA 

EJ KOPIERADE 

EJ RADERADE 

EJ SPARAD, 

FEL I 0D 

FEL VID BIBLIOTERS-I/O 

FELAKTIGT KOMMANDO 

GMT 

INDEX-FEL 

L#NGD-FEL 

L#S-FEL 

OGILTIG BIBLIOTEKS-REFERENS 

OMR$DES-FEL 

NY ARBETSAREA 

RANG-FEL 

SI FARSTART 

SPARAD 

SYNTAX-FEL 

SYSTEM-BEGR#ANSNING 

SYSTEM-FEL 

TIDIGARE 

VALENS-FEL 

VERDE -FEL 

#R 
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ALPHABETIC CHARACTER A character 
which is a capital let- 
ter, an underscored cap- 
ital letter, or Aor A. 


ALPHANUMERIC CHARACTER A charac- 
ter which is alphabetic, 
a digit, or” or _ 


AMBI-VALENT FUNCTION A function 
name which represents 
both a monadic and 
dyadic function. The 
one intended is deter- 
mined from context. 

ARGUMENT An array parameter that 

is passed to a function 

(to be distinguished 

from an operand of an 

operator). 

ARRAY A rectangular collection 

of data elements. An 

array has rank (possibly 

0), and shape (possibly 

empty). 


lines after the 
(line 0) of a 
function or 


BODY All 
first 
defined 
operator. 


CONSTANT A scalar or 
either 
numeric, 


vector, 
character or 
that appears 
explicitly in an APL2 
statement. A constant 
always has the same val- 
ue. 


DERIVED FUNCTION A function which 
is the result of apply- 
ing an operator to one or 
two operands in its 
domain. 


DYADIC FUNCTION A function which 
is defined for both a 
left and a right argu- 
ment. 





GLOSSARY 


DYADIC OPERATOR An operator which 
is defined for both a 
left operand and a right 


operand. 

EBCDIC Extended Binary Coded 
Decimal Interchange 
Code. 

ELEMENT A scalar which appears 


in an array. An element 
may be a character, a 
number, or an enclosed 
array. 


EMPTY ARRAY An array which has a 0 
in its shape. 


EXPLICIT RESULT The array value 
returned from a primi- 
tive function, or the 
array value returned 
from a defined function 
or operator by having it 
assigned in both the 
header and the body. 


EXPRESSION A sequence of one or 
more syntactic tokens, 
which may be symbols or 
names representing 
arrays (constants or 
variables), functions, 
and operators, 


FILL ELEMENT The scalar which is 
used by the functions 
Expand, Replicate, and 
Take. It is either 0 or 
t t, or a nested scalar 
array containing only 0 
and ' ', It is deter- 
mined by the expression 
cer, 

FUNCTION An operation which takes 

one or two arrays as 

explicit arguments, and 
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produces an array as a 
result. 


FUZZ The tolerance used in 
computing an equality. 
HALTED Suspended or pendent. 
Said of a defined func- 
tion or operator. 
HEADER The first line (line 0) 
of a defined function or 
operator. 
INTEGER A (whole) number with no 
fractional or imaginary 
part. 


A disclosed element of 
an array. An item may 
have any rank, and is the 
data within the scalar 
structure of an element. 


ITEM 


LOGICAL ARRAY An array containing 

only 0, 1, or both. 
MATRIX An array with rank equal 
to 2. 


MIXED ARRAY A simple array which 
contains both characters 
and numbers. 


MONADIC FUNCTION A function which 
is defined for only a 
right argument. 


MONADIC OPERATOR An operator 
which is defined for 
only a left operand. 


NESTED ARRAY A non-simple array. 


NILADIC FUNCTION A function which 
is defined for no argu- 
ments. A niladic func- 
tion may not be used as 
the function operand of 
an operator. 

NON-SCALAR ARRAY An array with 

rank greater than 0. 
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NON-SIMPLE ARRAY A non-empty 
array in which at least 
one item is not a scalar 
character or number, or 
an empty array in which 
the prototype is a 
non-scalar array. 


OPERAND A function or array 
parameter that is passed 
to an operator (to be 
distinguished from an 
argument of a function). 

OPERATOR An operation which takes 
one or two functions or 
arrays as operands and 
produces a derived func- 
tion. 
PENDENT Halted, aná remaining in 
an incomplete state, but 
not directly 
restartable. Said of a 
defined function or 
operator. A pendent 
function or operator has 
invoked another defined 
function or operator. 


PERVASIVE FUNCTION A function 
which applies independ- 
ently to all the simple 
scalars in its 
arguments, and produces 
a result of structure 
similar to that of its 
arguments. A pervasive 
function distributes 
over the function Pick 
(>). 

PRECEDENCE Priority of impor- 

| tance. 


PROTOTYPE The Type of the First of 
an array («>4A). If the 
array is empty, then 
this is equivalent to 
>A, and is its disclosed 
structure. 


The number of dimensions 
of an array. | 








REAL NUMBER A number with no imag- 


-~ SCALAR 


inary part, or an imagi- 
nary part of 0. 


An array with rank equal 
to 0. 


SCALAR FUNCTION A function which 


SCOPE 


SESSION VARIABLE A 


SHAPE 


applies independently to 
all the scalars in its 
arguments, and produces 
a result of shape simi- 


lar to that of its 
arguments. A scalar 
function distributes 


over Bracket Indexing. 
Range of influence. 
system vari- 


able which, if assigned 
a valid global value, 


will persist over a 
workspace clear or load. 
An invalid value 


assigned to a session 
variable is ignored. 


The collection of the 
lengths of all the 
dimensions of an array. 


SIMPLE ARRAY A non-empty array in 


STRUCTURE 


which all items are 
scalar characters or 
numbers, or an empty 


array in which the pro- 


totype is a simple 
scalar array. 
The arrangement and 


type of simple scalars 
in an array. Ina simple 


array, the structure is 
the shape. In a 
non-simple array, the 


structure is the shape, 
together with the struc- 
ture of each item in the 
array. 


SUB-ARRAY 


SUSPENDED 


An array which is a con- 
tiguous subset along one 
Or more axes Of an array. 
The subset may be proper 
or improper. That is, 
the sub-array may be of 
equal or smaller rank 
and shape compared with 
the array itself. 


Halted, and remaining 
in an incomplete state, 
and directly re- 
startable. Said of a 
defined function or 
operator. The halt may 
have been caused by an 
error, an attention, or 
a stop control. 


UNIFORM ARRAY An array in which 


VALENCE 


VECTOR 


VARIABLE 


WORKSPACE 


all items have the same 
structure. 


The number of explicit 
arguments that a func- 
tion takes, or the num- 
ber of explicit operands 
that an operator takes. 
For example, a niladic 
function has a valence 


of 0, a monadic function 


has a valence of 1, anda 
dyadic function has a 
valence of 2. 


An array with rank equal 
to 1. 


A named array. 


The common organiza- 
tional unit of the APL2 
system. It contains 


data, programs, and exe- 
cution status. 
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abort 145 

See also branch 

from evaluated input 213 
abort edit 293, 296, 306 
absolute value 

See magnitude 
accent ^ 287, 329 
access control 190, 200 
access state 192 
account 204 
account information 204 
account number 

See account information 
accuracy 65, 67, 136 

See also fuzz 
acknowledgements 357 
active workspace 3, 237, 242, 

247, 249 

add 78 
adding a line 

See edit 
adjust, left or right 

See format 
after 968 
algorithm 65, 67, 136 
almost 389D1 
along 

See bracket axis operator 
alpha a 285 
alphabetic 6, 285, 351 


alphanumeric 6, 285, 286, 351 


alternate 197 
ambi-valent function 351 
ambiguous symbol 33 
ampersand 287 
and A 79, 285 
angle | 

See phase 
APL feature 224 
APLTF 333 
APL2 1, 329, 333 
apostrophe 

See quote 
apply 

See operator 
APZEXIT EXEC 333 
arccos 80 


LINDEX 


arccosh 80 
arcsin 80 
arcsinh 80 
arctan 80 
arctanh 80 
argument 18, 21, 189, 214, 220 
351 
See also operand 
arithmetic 10 
array 1, 3, 351 
cross section 104 
depth 68 
dimension 3, 74 
display of 11, 70, 138, 330 
element 3, 351 ( 
See also index 
empty 4, 228, 231, 330, 351 
expression 15 
item 352 
See also disclose 
See also each 
See also first 
See also pick i 
non-simple 4, 13, 68, 352 
rank 3, 352 | 
shape 3, 353 
Simple 68, 353 
uniform 160, 353 
array expression 15 
array products 176 | 
arrow 6, 7, 22, 105, 106, 118, 
119, 145, 148, 285, 293, 305, 
306 
ascending order 59 
assignment 6 
See also selective specifica- 
tion . 
See also specification 
at 3 287, 329 
atomic vector 204 
attention 3, 259, 334 
See also interrupt 
attributes 194 
automatic localization 207, 210, 
214, 220 | 
auxiliary processor 1, 25, 333 
available 225 
axes a 7 
See axis 
axis 
See also dimension 


Index 359 











specification of 29, 31, 43, 
47, 50, 52, 62, 96, 101, 106, 
108, 111, 116, 119, 123, 126, 
159, 165, 167, 255 

See also bracket axis oper- 
ator 
AXIS ERROR 209, 255 


backslash \ 33, 107, 108, 165, 
167, 285 | | 
backslash (national) \ 287, 329 
backslash bar \ 33, 108, 109, 
166, 167, 285 
backslash circle 
See circle backslash 
backslash quad 
See quad backslash 
backspace 246, 287, 288, 329 
See also terminal control 
characters 
bar - 40, 93, 285, 287, 329 
bar backslash 
See backslash bar 
bar circle 
See circle bar 
bar slash 
See slash bar 
bare input/output 
See character input/output 


base ı 132, 285 
base jot 2 69, 285, 306 
base top 


See I-beam 
base value 

See decode 
BCD 224 
before “3, 2, "1 
best fit 134 
bibliography 355 
binomial 79, 330 
bit 

See logical 


See blank 
blank 7, 8, 9, 14, 16, 17, 285, 
286, 317, 329, 330 . 
in display of arrays 
in editing 296, 299 
block letters 285 
body 275, 351 


13, 71 
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‘bracket axis operator 


boolean functions 77 


box 

See quad 
brace 287, 329 
bracket 33, 146, 285 


axis specification 29, 31 
in editing 291, 292, 298, 
299, 300 
bracket axis 
producing dyadic 172 
producing monadic 168 
168, 228 
bracket bracket 
See squad 
bracket indexing 146 
branch 1, 148 
See also abort 
break 
See attention 
bytes 
See workspace available 


Le | 


calculator mode 
See immediate execution 
call 
See function 
See operator 
See valence 
canonical 182 
canonical representation 182 
cap n 61, 62, 285 
cap jot a 17, 285, 306 
caret 207, 221 
See also and 
carriage return 
See new line 
cartesian form 
See y 
cartesian product 
See outer product 
case 285, 329 
catenate 95, 96 
ceiling 35 
cent ¢ 287, 329 
chain 
See catenate 
See vector notation 
change 304 
character 
351 


5, 204, 223, 285, 329, 














See also atomic vector 

display 325 

graphics 325 

in name 6 

invalid 287 

names 285 

printable backspace 246 

set 285 

valid 287 
character data 

See array 
CHARACTER ERROR 

See ENTRY ERROR 
character input/output 204 
character names 285 
character representation 

See canonical representation 

See format 
character set 285 
characteristics of APL2 1 
circle o 41, 80, 285, 330 
circle backslash & 53, 102, 285 
circle bar e 52, 53, 101, 102, 

285 

circle star e 
circle stile $9 


40, 84, 285 
52, 100, 101, 


285 

circular 80 

class 188 

clear 184, 196, 197, 237, 248, 
255 

CLEAR 237 


See also clear 
CLEAR WS 255 
close 
See right 
CMS 333 
coax operator 
See bracket axis operator 


coefficients 67, 132 
collate 

See grade 
colon : 17, 227, 285 
column 11, 330 
combinations 


See binomial 
comma , 49, 50, 95, 96, 140, 
285 
command 235, 296, 300 
comment 17, 306, 327 
example 313 


communication 1 


See also )MSG 
See also )OPR 
See also shared variable 


comparison 206 
comparison tolerance 
See also equal 
See also system fuzz 
complement 40 | 
complex 10, 11, 13, 80, 210 

complex constant 10 
composite character 

See overstrike 
compound character 

See overstrike 
compress 

See replicate 
compute time 

See account information 
concurrent process 

See access state 
conditional branch 151 
conform 27, 77, 314 

See also LENGTH ERROR 

See also RANK ERROR 
conjugate 36, 80 
connect time 

See account information 


82, 206 


constant 4, 5, 329, 351 
continuation 299 
continue 150, 299 


See also restart 
See also resume 
)CONTINUE 237 
control 210, 223, 281 
See also debug 
See also shared variable con- 
trol 
in formatting 140 
control characters 223, 287 
See also format control 
conversion 
See MIGRATE 
coordinate 
See dimension 
}COPY 237, 327, 333 
corrections 3 
See also edit 
correspondence 224 
cosh 80 
cosine’ 80 
counter 215 


coupling 191, 200 
CP/CMS 333 
CPU time 


See account information 
cross section 104 
cup u 54, 285 
curly bracket 
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See brace 
cursor 296, 305, 307, 308 
cut 80 


Lo | 


D 10, 13, 210, 211 
damage 

See SI WARNING 

See SYSTEM ERROR 
Danish 217, 336, 337 
Danish system commands 336 
Danish system messages 337 
DANSK 217, 336, 337 


dash 
See bar 
data 1, 3 


See also array 
data transformation 
See transformation function 
data type 
See type 
date 
See time stamp 
day 
See time stamp 
deal 122 
debug control 281 
debug variable 204 
decimal 4 
decimal point 
See display of arrays 
See format 
decode 132 
decorator 
in formatting 140 
default editor 291 
default event type 208 
defined function 19 
defined operator 21 
definition 275 
See also edit 
DEFN ERROR 256 
degree of coupling 191, 200 
tel v 239, 256, 285, 291, 293, 
294, 295, 296, 297, 299, 306, 
308 
DEL key 309 
del stile Y 57, 285 
lel tilde *» 22, 239, 256, 285, 
294, 295 
delay 182 
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-æ A A a A A A A A A et tt et nt ee tate ae 


See also shared variable event 
delete 292, 302 
delimit 9 | 
delta A 285, 292, 302 
delta stile A 59, 285 
delta underbar A 285 
depth 68, 327 
derived 160 
derived function 20, 21, 351 
descending order 57 
detailed edit 292 
DEUTSCH 217, 342, 343 
device 

See terminal type 


diagonal 104 


dieresis 156, 157, 285 
dieresis dot 
See dotted del 
difference 
See subtract 
differences 329 
digits 218 
See also numeric characters 
See also picture format 
dimension 3, 74 
See also axis 
direction 36 
disclose 43 
See also first 
disk 333 
display 325 
See also edit 
See also format 
of arrays 11, 330 
of empty arrays 12, 330 
display terminal 205, 334 
displayable 194, 277 
distinguished names 181, 203, 
227 
divide + 81, 133, 217, 285, 330 
See also reciprocal 
divide quad 
See domino 
divide tolerance 217 
do nothing 
See comment 
dollar $ 287, 329 
DOMAIN ERROR 194, 209, 211, 256, 
277 
domino § 65, 133, 285 
dot. 140, 176, 178, 285, 333 
dot dieresis 
See dotted del 
dot quote 
See quote dot 











dotted del 
double arrow 7 
double attention 

See strong interrupt 
double quote * 287, 329 

See also quote 
down arrow + 105, 106, 285, 305 
down stile | 38, 86, 128, 285 
drop 105, 106 
YDROP 239 
dump 265 
duplicate 

See replicate 

See unique 
dyadic 18 
dyadic function 
dyadic operator 


e (2.71828) 37, 40 

E 4 

each 156, 157, 228 

EBCDIC 285, 351 

edit 256, 291, 295, 330, 331 
See also )EDITOR 
See also fix 

editing hints 308 

EDITOR 239 

editor 1 291 

editor 2 295 

efficiency 251 

eigen 64 

eigenvalue 64 

eigenvector 64 

element 3, 4, 24, 327, 351 
See also index 

empty array 4, 228, 231, 330, 

351 
See also reduce 
relaxation 30, 32, 99, 105, 

168 

enclose 46, 47 

encode 132, 330 

ENGLISH 217 > 3 

ENTER key 295, 308, 309, 334 

entering characters or numbers 
See constant 

ENTRY ERROR 257 

environment 1, 181, 203 

epsilon e 30, 42, 131, 285 


246, 285, 329 


18, 351 
20, 351 


epsilon underbar «< 122, 123, 
246, 285, 329 
equal = 82, 285 
See also comparison tolerance 
equal underbar = 68, 137, 285, 
329 | 
equivalent 
See match > 
JERASE 239 
See also expunge 
ERASE EOF key 308, 309 
error 143, 208, 209, 253, 307, 
314, 331 
See also format control 
in extended editor 296 
error conversion 194, 277 
error messages 253 
error recovery 198, 211, 221, 
253 | | 
See also branch 
See also left argument 
See also right argument 
escape | 
See interrupt 


ESPANOL 217, 346, 347 
establish 

See edit 

See fix 
evaluated input 213 
evaluation 207, 221 
event 183, 196, 207, 208 


event code 208 

event message 207, 314 
event simulation 183, 196 
event type 208 | 
examples 313 

EXAMPLES 326 


exclamation ! 287, 329 
exclusive or 88 

EXEC 333 

execute 69, 197, 216 


execute alternate 197, 314 
execution | 
in editing 294, 306 
order of 15 
execution properties 


execution segment 306 


194, 277 


exit | | 
See abort 
expand 107, 108 


explicit argument 18, 209 
explicit error 209 

explicit line number 298 
explicit result 18, 20, 21, 351 
exponent | 
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See scaled form 
exponential 37 
expression 15, 17, 216, 351 
expunge 185 
extended editor 295 
extended transfer form 319 
extension 27, 28 
external communication 1 
See also shared variable 


ia 


factorial 37 
failure 
See error 
false 77 
field 
in formatting 140 
file 323, 333 
file mode 333 
file name 333 
file type 333 
fill 45, 107, 115, 118, 228, 351 
in formatting 140 
find 122, 123 
find index 125, 126 
Finnish 217, 338, 339 
Finnish system commands 338 
Finnish system messages 339 
first 56 
See also disclose 
See also take 
fit 
best 134 
fix 187, 198, 253, 329 
fix time 194 
flat array 
See simple array 
float 
in formatting 140 
floor 38 
JENS 241 
folding of displays 
font 
See character set 
form 192, 201 
format 70, 138, 210, 330 
format by example 
See picture format 


219, 330 
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format control 210 
FRANCAIS 217, 340, 341 
French 217, 340, 341 
French system commands 340 
French system messages 341 
full screen 295 
function 1, 351 
argument 18, 189 
defined 19 
definition of 275 
derived 20, 21, 160 
display 22, 182 
dyadic 18, 27, 28, 77, 95, 
105, 122, 132, 137, 194 
errors 22 
establish 187, 198 
expression 16 
header 275 
interrupt 22 
locked 22, 294, 297 
miscellaneous 31, 145 
mixed 31, 64, 132 
monadic 18, 27, 35, 43, 56, 
57, 64, 68, 182 
name list 241 
niladic 18 


non-pervasive 30, 31, 160 


pervasive 27, 28, 29, 35, 77, 
160 
primitive 29, 31, 35, 43, 56, 


57, 64, 68, 77, 95, 105, 122, 
132, 137, 145 
result 18, 20 
scalar 27, 156, 157 
selection 31, 56, 105 
selector 31, 57, 122 
structural 31, 43, 95 
suspend 22 
system 181, 182, 194 
transformation 31, 68, 137 
valence 194, 275 
variant 227 
function expression 16 
function table 
See outer product 
functions 33 
circular 80 
trigonometric 80 
further examples 313 
fuzz 11, 217, 352 
See also comparison tolerance 
See also equal 














E 


Gamma function 37 
general array 

See non-simple | 
general logarithm 84 
general share offer 201 
German 217, 342, 343 
German system commands 342 
German system messages 343 
getting out 

See abort 

See branch 

See interrupt 
global names 276 
glossary 351 
GMT 

See time zone 
go to | 

See branch 
grade 

down 57, 128 

up 59, 129 
graphics characters 325 
greater > 83, 285 
greater or equal 

See not less 
greatest 

See maximum 
grid 

See index 
group 331 

See also indirect copy 

See also indirect erase 


El 


halted 352 
has the same value as 7 
header 275, 291, 297, 317, 352 
hexadecimal 285 
hints 308 
HOLD 237, 244 
horizontal tabs 211 
host 244 
hour 

See time stamp 
hyperbolic 80 
hyphen 

See bar 


a 


i (O71) 10 
I-beam I 285 
identification 

See account information 
identifier 

See name 
identity 160, 231 
imaginary 10, 13, 80 
immediate execution 3, 152, 153 

in editing 294, 306 
immediate execution segment 306 
implementation 225, 256, 327 
implication 90 
implicit 212 
implicit argument 209, 237 
implicit error 203, 209 
implicit line number 300 
implicit result 65, 66, 133, 212 
IMPROPER LIBRARY REFERENCE 258 
JIN 241, 333 
inactive workspace 

See stored workspace 
INCORRECT COMMAND 258 
indent 3, 13, 219 
independent 134 | 
index 109, 111, 126, 146, 212 
INDEX ERROR 209, 258 
index generator 

See interval 
index of 131 
index origin 212 
index set 60 
indexed | 
~ See axis specification 
indexed assignment 

See selective specification 
indexed specification 

See selective specification 
indexing 

See index 
indicator 249, 250, 251 
indirect copy 238, 247 
indirect erase 240 
infinitesimal 327 
infinitesimal value 268 
infinity 7.2370055773322621E7 
information 3, 204 
inhibit 

See shared variable control 
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initial value 
See clear 
inner product 178, 229, 232 
input 205, 213, 330 
input line 
in extended editor 296 
input/output 204, 213 
INS MODE key 309 
insert 291, 299 
instruction 
See expression 
integer 11, 35, 38, 352 
interaction 3 
interface 
See shared variable 
INTERFACE CAPACITY EXCEEDED 
See SYSTEM LIMIT 
INTERFACE QUOTA EXHAUSTED 
See SYSTEM LIMIT 
interlock 
See shared variable control 
interpreter 333 
interrupt 3, 209, 222, 333 
See also attention 
from evaluated input 213 
from terminal input 206 
INTERRUPT 259 
interruptible 194, 277 
interval 61 
invalid characters 287 
inverse 65 
See also reciprocal 
inverse cosine 80 
inverse hyperbolic cosine 80 
inverse hyperbolic sine 80 
inverse hyperbolic tangent 80 
inverse permutation 
See grade 
inverse sine 80. 
inverse tangent 80. a 
inverse transfer deca "192. 202 
invoke 
See function 
See operator 
See valence 
iota 1 61, 131, 285, 306 
iota underbar 1 125, 126, 246, 
285, 329 
italic letters 285 
item 4, 6, 25, 114, 352 
See also. disclose 
See also each. 
See also first 
See also pick | f 
iterative procedure 151 
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J 10, 13, 210, 211 
jot ° 176, 285 
jot base 

See base jot 
jot cap 

See cap jot 
jot quad | 

See quad jot 
jot top 

See top jot 
juxtaposition 6 


key 


See password 
keying time 
See account information 


label 17, 150, 276, 327 
See also branch 
See also system labels 
laminate 96, 97 
lamp 
See cap jot 
language 
See national language trans- 
lation 


largest 327 


See also maximum 
last 

See first 
latent 216 
latent expression 216 
least 

See minimum 
least squares 65, 134 
left 214 
left argument 214 
left arrow ¢ 6, 22, 285 


left brace { 287, 329 

















left bracket [ 29, 31, 33, 285, 
291, 292, 298, 299, 300 
left eigenvector 64 
left identity 160 
left paren ( 285 
left shoe ce 46, 47, 285 
length 327 
See also shape 
LENGTH ERROR 209, 259 
less < 83, 285 
less or equal 
See not greater 
letter 288, 293 
LIB 242, 333 
library 3, 237, 239, 242, 247, 
249, 265, 333 
LIBRARY I/O ERROR 260 
LIBRARY IN USE, RETRY 260 
limitations 327 
See also SYSTEM LIMIT 
line 215 
line counter 215 . 
See also SI WARNING 
See also branch 
See also state indicator 
line feed 287, 329 
See also terminal control 
characters 
line number 
See branch 
See edit 
linear equations 134 
linearly independent 134 
lines 327 
See also edit 


link 221 
list 190, 199 
literal 


See constant 
literal input/output 

See character input/output 
load 224 
)LOAD 242, 333 
local names 250, 276, 327 
local variables 

See local names 
localization 276 


automatic 207, 210, 214, 220 
locate 303 

See also index of 
lock 294, 297 
lock key 


See password 
locked function 22, 294, 297 





- message 


locked workspace 238, 239, 243, 
249, 252 
log 
See circle star 
logarithm 
general 84 


natural 40 


logical 11, 352 
LOGOFF 333 

long scope 18, 20 
lower case 288, 329 
magnitude 39, 80 
malfunction 


See error 
mantissa 4 
match 137 
material implication 90 
matrix 4, 11, 65, 352 
matrix divide 133, 217 
matrix divide tolerance 

217 

matrix inverse 65 
matrix multiplication 178 
matrix products 

See array products 
maximum 85, 327 
means the same as 7 
member 131 
207, 208, 253 

receiving 243 

sending 243, 245 
MIGRATE 242, 245, 325, 334 
migration 323 | 
migration transfer form 317 
millisecond 

See account information 

See time stamp 
minimum 86 
minus 

See subtract 
minute 

See time stamp 
miscellaneous function 31, 145 
mixed 352 
mixed array Y 
mixed function 31, 64, 132 
module 333 
modulus 

See residue 


66, 134, 
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monadic 18 
monadic function 
monadic operator 
- month 

See time stamp 
\MSG 243 
)MSGN 243 
multi-dimensional array 
multiple branch 151 
multiplier 4 
multiply 87 


El 


N-wise reduce 158, 159 
name 6, 181, 203, 227, 291, 327 
change by 304 
class 188, 329 
list 190, 199, 241, 244, 245, 
252 
of character 285 
surrogate 201 
name table 
See symbol table 
nand «*« 87, 285 
national characters' 
See national use characters 
national language 
translation 217, 253, 335 
Danish 336, 337 
Finnish 338, 339 
French 340, 341 
German 342, 343 
Norwegian 344, 345 
Spanish 346, 347 
Swedish 348, 349 
national translation 
See national language trans- 
lation 
national use characters 
natural logarithm 40 
negative 40 
negative number 5 
nested 9, 352 
See also depth 
See also non-simple 
never 0313 
new APL2 characters 
See printable backspace 


18, 352 
20, 352 


4, 12 


287, 329 
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new line 204, 287, 329 
See also terminal control 
characters 
niladic 18, 20, 352 
)NMS 244 
no error 208 
NO SHARES 
See SYSTEM LIMIT 
non-pervasive function 31 
non-displayable 194, 277 
non-interruptible 194, 277 
non-pervasive function 30, 160 
non-pervasive function axes 31 
non-scalar array 352 
non-simple 4, 13, 68, 352 
non-singular matrix 65 


non-suspendable 194, 277 
nor ¥ 88, 285 

NORSK 217, 344, 345 
Norwegian 217, 344, 345 


Norwegian system commands 344 
Norwegian system messages 345 
not > 40, 287, 329 
NOT AN APL2 WS 260 
NOT COPIED 260 
not equal =æ 88, 285 
NOT ERASED 261 
NOT FOUND 261 
not greater < 89, 285 
not less 2 90, 285 
NOT SAVED, LIBRARY FULL 262 
NOT SAVED, THIS WS IS 262 
NOT SAVED, THIS WS IS CLEAR 
WS 261 
NOT SENT 243 
notation 6 
notation for complex numbers 10, 
13 
nuax operator 
See bracket axis operator 
nub 
See unique 


null 298 
See also jot 
number 4, 293, 329 


See also pound 
number of users 

See user load 
numeric characters 286 
numeric data 

See array 





Offer 


ES 


OUT 206 
object name list 244 
objects 1, 237, 241, 245, 247 
odd root 330 
JOFF 244, 333 
191, 200 
omega w 285 
open 
See edit 
See left 
operand 20, 189, 352 
See also argument 
operating system 
See CP/CMS 
operation table 
See outer product 
operator 1, 352 
bracket axis 168, 228 
See also axis specification 
defined 21, 313 
definition of 275 


dyadic 20, 176 
header 275 
locked 22 
monadic 20, 156 


name list 245 
operand 20, 189 
primitive 155, 156, 176 
result 21 
valence 194, 275 
JOPR 244 
JOPRN 245 
JOPS 245 
option 333 
or v 91, 285 
order 57, 59 
See also grade 
order of execution 15 
origin 212 
other processor 200 
JOUT 245, 333 
outer product 176, 229 
output 204, 213 
overbar ~ 5, 285, 329 
overflow 
See format control 
overstrike 206, 246, 288, 293 


e] 


pad 314 
See also fill 
in formatting 140 
parenthesis 7, 9, 15, 16, 20, 
275, 285 
partner 
See processor 
See shared variable 
password 237, 239, 242, 247, 
249, 252 
pattern 139 
See also find 
PA1 key 334 
PA2 key 296, 310, 334 
)PBS 246 
)PCOPY 247, 333 | 
pendent 264, 329, 352 
See also state indicator 
percent 287 
period 
See dot 
permutation 
See deal 
See grade 
See index 
pervasive function 
77, 160, 352 
pervasive function axes 29 


27, 28, 35, 


PF key 306, 308, 309 
phase 13, 36, 80 
pi (3.14159) 41 
pick 114 
picture format 139 
plane 11, 12, 330 
plus + 36, 285 
See also add 
point 
See dot 
polar form 
See D 
See R 
polynomial 67, 132, 134 


polynomial zeros 67 
pound # 287 
power 91, 330 
See also scaled form 
precedence 1, 20, 352 
precision 12, 218, 329 
See also fuzz 
primitive function 29, 31 
primitive operator 155 


Index 369 


print 

See display 
print precision 

See printing precision 
print width 

See printing width 
printable 246 
printable backspace 246 
printing 218, 219 
printing control characters 

See terminal control charac- 

ters 
printing precision 
printing width 219 
private library 237, 238, 239, 

242, 243, 247, 252, 265, 333 

probability 42 

See also deal 


12, 218 


processor 191, 192, 200, 201 
See also auxiliary processor 
product 
See multiply 
products 
inner 178 
outer 176 
program 1, 3, 275 


See also function 

See also operator 
project library 333 
prompt 205, 218, 294 
prompt replacement 205, 218 
prompt/response 205 
prompt/response interaction 272 
properties 

See execution properties 
protected copy 

See )PCOPY 
protection 

See lock 
prototype 
PTTC 224 
public library 333 
pythagorean 80 


Lo | 


quad Q 181, 203, 213, 227, 285, 
291, 292, 301, 330 
quad backslash NU 64, 246, 285, 
329 
quad divide 
See domino 


56, 68, 156, 157, 352 
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quad input 
See evaluated input 
quad jot @ 67, 246, 285, 329 
quad prime 
See quote quad 
quad quote 
See quote quad 
O__ ERROR 209 
DAI 204, 333 
DAT 194, 275 
DAV 204, 285, 329 
OCR 182, 329 
OCT 82, 206, 269, 330 
ODL 182 
OFA 197, 253 
DEM 207, 253 
DES 183, 196, 253 
DET 208, 253 
See also national language 
translation 
DEX 185, 329 
OFc 13, 139, 143, 210, 270 
OFL 156, 157, 169, 176, 178, 228 
OFX 187, 198, 329 
ORT 211, 333 
OZD 158, 159, 160, 178, 231 
OJO 212, 270 
OLR 66, 133, 212 


OL 214 
OLC 215 
DLX 216 


OMD 66, 134, 217, 271 
Once 188, 329 
ONL 190, 199 
ONLT 217 
See also national language 
translation 
OPP 12, 13, 218, 272 
OPR 218, 272 
OPW 219, 330 
OR 220 
ORL 42, 122, 221, 273 
ORT 
Osve 190, 200 
OSVE 222 
Dsvo 191, 200, 329, 330 
OSVQ 191, 330 


OSvR 191, 329 

Osvs 192 

ore 223 

OTF 192, 201, 317, 319 
ors 223 

OTT 224, 333 

OTZ 224 

QUL 224 











OWA 225 
Query ? 30, 42, 122, 285, 306 
See also shared variable query 
question mark 
see query 


quit 
See abort 
)QUOTA 247, 333 
quote *? 5, 8, 285, 287, 329 


see also double quote 
quote dot ! 37, 79, 285 
quote quad M 204, 285, 330 
quote quad input/output 

See character input/output 
quotient 81 


E 


R 10, 13, 210, 211 
radian 80 
random 42, 221 

See also deal 
random index 

See scatter index 
random link 221 
random seed 

See random link 
range 

See DOMAIN ERROR 

See VALUE ERROR 
rank 3, 327, 352 

See also shape 

RANK ERROR 209, 262 
ravel 49, 50 
re-evaluate 

See resume 
re-specification 

See specification 
real 10, 11, 13, 80, 352 
reception of messages 243 
reciprocal 41 
record 323 
recursive 276 

See also recursive 
reduce 158, 159, 160, 165, 231 
reduction 

See reduce 
redundant 7, 16 
reference 192, 200 

See also bibliography 
relational functions 77 
_ relaxation 


right paren ) 


empty array 30, 32, 99, 105, 
168 | 
renumber 306 
repeatable 221 
replace 291, 299, 304 
replacement 205, 218 
replicate 115, 116 
See also unique 
reply 243 
report 236, 253 
representable 327 
representation 182 
See also encode : 
204, 209, 210, 287 


reserved 

)RESET 248 

reshape 99 

residue 92, 330 
resource error 209 
response 205, 218 
restart 152, 221, 263 


See also )CLEAR 
see also )RESET 

restartable 263 

result 18, 20, 21, 194, 212, 351 
in editing 307 

resumable 263 


resume 150, 153, 221, 263, 331 
retract 185, 191, 238, 243 
See also )CLEAR 
retrieve 
See )LOAD 
See reference 
return 


See abort 
See branch 
reverse 52 | 
rho p 31, 74, 99, 285 
right 220 
right argument 220 
right arrow > 145, 148, 285, 
293, 306 
right brace } 287, 329 
right bracket J 29, 31, 33, 
285, 291, 292, 298, 299, 300 
right eigenvector 64 
right identity 160 
235, 285 
right shoe > 31, 43, 56, 114, 
285 
roll 42 
root 91, 330 
See also polynomial zeros 
rotate 100, 101 


round off 
see accuracy 


Index 371 











See ceiling 

See floor 

See precision 
row major order 

See ravel 


Ls 


SA 282, 331 
same 7 
)SAVE 249, 333 
save (in extended editor) 306 
scalar 4, 353 
scalar function 27, 353 
scalar representation 
See enclose 


scale 4 
scaled form 4 
scan 165, 167 


See also evaluation 
scatter index 110, 111 
schedule 

See shared variable event 
scientific notation 

See scaled form 
scope 18, 20, 353 
screen 295 
screen segment 295 


scroll 305 
search 
See find 


See index of 

See locate 
second 

See time stamp 
second processor 200 


seed 
Gee random link 
segment 297, 306 


selection function 31, 56, 105 
selective specification 22 
selector function 31, 57, 122 
semantics 1 
semicolon ; 
317 
sending a message 

See )MSG 

See )OPR 
SENT 243 
sequence control 1 
sequence numbers 323 
session 235, 333 


33, 146, 168, 285, 
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See 


also )CONTINUE 


session manager 334 


session parameter 
session variable 
224, 353 


220, 


239, 247 
204, 212, 217, 


set 192, 200 


See 


also specification 


set difference 
See without 

set membership 
See member 

shadowing 


See 
shape 


shared variable 
control 


localization 

3, 74, 353 

1, 25 
190, 200 


event 222 


offer 


191, 200 


query 191 
quota 247 


reference 


192, 200 


retraction 191 


set 


state 
31, 43, 46, 47, 56, 114, 


shoe 
285 


short scope 


192, 200 
192, 222 


18, 20 


ySI 249, 294, 308 
SI WARNING 263 
sign off 


See 


sign on 


See 
signum 
See 
simple 
See 
simple 


simulation 
80 
singular matrix 
80 


Sine. 


sinh 
)SINL 


)OFF 
333 
also )CONTINUE 
direction 
depth 
array 4, 11, 12, 353 
183, 196 
66, 217 


250 


)SIS 251 


size 
See 
slash 


237, 242, 327, 333 


also shape 
/ 33, 115, 116, 158, 159, 


160, 165, 285, 293, 303, 304 


slash bar + 


33, 116, 118, 159, 


160, 164, 165, 285 


slope 
See 

slots 
See 


backslash 


) SYMBOLS 


smallest 327 














See also infinitesimal value 
See also minimum 
sort 
See grade 
space 
See blank 
See workspace available 
Spanish 217, 346, 347 
Spanish system commands 346 
Spanish system messages 347 
special characters 287, 329 
See also printable backspace 
special segment 
See immediate execution seg- 
ment 
specific share offer 201 
specification 6 
See also selective specifica- 


tion 
split bar : 287, 329 
squad [ 31, 60, 109, 111, 246, 
285, 329 | 


Square root 91 
squashed quad 
See squad 
stack indicator 
See state indicator 
stamp 223 
star *« 37, 91, 249, 285 
star circle 
See circle star 
start 
See )CLEAR 
See sign on 
state 192 
state indicator 248, 249, 250, 
251, 294, 308 
See also line counter 
statement 17 
statement label 
See label 
stile | 39, 92, 285 
stile circle 
See circle stile 
stile del 
See del stile 
stile delta 
See delta stile 
stop control 282 
storage 3, 327 
See also workspace available 
stored workspace 3, 237, 242, 
249 
strand 
See vector notation 


strictly dyadic 267 
strictly monadic 18, 19, 267 
strong interrupt 333 
structural function 31, 43, 95 
structure 353 
sub-array 353 

See also axis specification 

See also bracket axis operator 

See also drop 

See also expand 

See also reduce 

See also replicate 

See also take 
subscript 

See index 
subtract 93 
sum 

See add 
SUOMI 217, 338, 339 
super-edit 292 
Supplied workspaces 325 
SUPPRESS 334 
suppress zeros 12 

See also picture format 
surrogate name 201 = 
suspend 153 
suspendable 194, 277 
suspended 264, 329, 353 

See also state indicator 
SVENSKA 217, 348, 349 
Swedish 217, 348, 349 
Swedish system commands 348 
Swedish system messages 349 
symbol table 248, 249, 327 

See also )SYMBOLS 
SYMBOL TABLE FULL 

See SYSTEM LIMIT 
)SYMBOLS 251 
symmetric access control 200 
syntax 1 

See also expression 

See also statement 

See also vector notation 
SYNTAX ERROR 209, 264 
system commands 235 

Danish 336 

Finnish 338 

French 340 

German 342 

in editing 294 

in evaluated input 214 

Norwegian 3&4 

Spanish 346 

Swedish 348 
SYSTEM ERROR 209, 265 


Index 373 


system functions 181 
system fuzz 11 

See also comparison tolerance 
system labels 227 
SYSTEM LIMIT 209, 265, 330 
system limitations 327 
system messages 253 

Danish 337 

Finnish 339 

French 341 

German 343 

Norwegian 345 

Spanish 347 

Swedish 349 
system of linear equations 134 
system variables 203 


[| 


TA 230, 232, 281, 331 
table 
See matrix | 
See outer product 
See symbol table 


tabs 211 

take 118, 119 
tangent 80 
tanh 80 


terminal 205, 224, 246, 333 


terminal control characters 223, 
287 
terminal type 224 
terminate 
See )CONTINUE 
See )OFF 
See abort 
See branch 
tilde ~ 30, 40, 120, 285 
tilde (national) ~ 287, 329 
tilde del 
See del tilde 
time 223, 224 


See also account information 
See also delay 
See also shared variable event 
time stamp 223 
time zone 224 
times x 36, 87, 285 
token 15 
tolerance 82, 206, 217 
top T 132, 285 
top base 
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See I-beam 


top jot + 70, 138, 285 

trace 313 

trace control 281 

transfer 192, 201, 241, 245, 
323, 333 


transfer file format 323 
transfer form 192, 201, 317, 319 


transformation function 31, 68, 
137 
translation 
See national language trans- 
lation 
transpose 53, 102, 168 
trap 184, 197, 314 


See also execute alternate 
trigonometric functions 80 
trouble report 236 
true 77 
type 42, 208, 224, 317 
typewriter terminal 334 


[| 


unclassified event 208 
underbar 285, 329 
underbar delta 

See delta underbar 
underbar epsilon 

See epsilon underbar 
underbar equal 

See equal underbar 
underbar iota 

See iota underbar 
underline 

See underbar 
underscore 

See underbar 


uniform array 160, 353 

unique 61, 62 

unite 54 

unreferenced 

up arrow + 118, 119, 285, 305 
up stile f 35, 85, 129, 285 
upper case 285, 286 

use 


See reference 
user 224 
user identification 

See account information 
user load 224 





valence 194, 228, 231, 275, 353 
VALENCE ERROR 209, 267 
valid characters 287 
value 6 
VALUE ERROR 209, 267 
variable 1, 6, 353 
See also debug variable 
see also selective specifica- 
tion 
See also session variable 
See also shared variable 
See also system variables 
name list 252 
variant 7 
see system labels 
)JVARS 252 
vector 4, 6, 11, 204, 353 
vector notation 6 
vertical bar | 287, 329 
VM 
See CP/CMS 
VS APL 323, 333 


a | 


wait 
See delay 
See shared variable event 
weak interrupt 334 
width 219 
with axis specification 43, 47, 
90, 52, 62, 96, 101, 106, 108, 
111, 116, 119, 123, 126, 159, 
165, 167, 255 
See also axis specification 


without 120 

workspace 3, 
252, 325, 353 

workspace available 225 

workspace dump 265 

WS FULL 209, 268 

WS LOCKED 269 

WS NOT FOUND 269 


237, 242, 247, 24 


)WSID 252 
year 


See time stamp 


[2 | 


zero suppression 12 

see also picture forma? 
zeros 67 
zone 224 


1001 333 
E 
3270 224 
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